R - ggplot2 - Как использовать лимиты на оси POSIX?

Question

Каков самый умный способ управления POSIX для использования в оси ggplot?

Я пытаюсь создать функцию для построения множества графиков (один в день), охватывающих период недели, используя время POSIX для оси x.

Для этого я создаю дополнительный целочисленный столбецDF$Day с днем, который я вводил в функцию. Затем я создаю подмножество, используя этот день, который я рисую с помощью ggplot2. Я решил использовать scale_x_datetime для форматирования оси POSIX x. В основном, я показываю часы & минут, опуская дату.

вот мой вопрос: Как установить лимиты для каждого отдельного графика в часах дня?

Ниже приведен некоторый рабочий, воспроизводимый код, чтобы получить представление. Он создает первый день, показывает его в течение 3 секунд & выручка от создания второго дня. Но ограничения на каждый день выбираются исходя из диапазона переменной time. Как я могу сделать диапазон, например, весь день (0h - 24h)?

DF <- data.frame(matrix(ncol = 0, nrow = 4)) 

DF$time <- as.POSIXct(c("2010-01-01 02:01:00", "2010-01-01 18:10:00", "2010-01-02 04:20:00", "2010-01-02 13:30:00")) 
DF$observation <- c(1,2,1,2) 
DF$Day <- c(1,1,2,2) 

for (Individual_Day in 1:2) { 
Day_subset <- DF[DF$Day == as.integer(Individual_Day),] 

print(ggplot(data=Day_subset, aes_string(x="time", y="observation")) + geom_point() + 
     scale_x_datetime(breaks=("2 hour"), minor_breaks=("1 hour"), labels=date_format("%H:%M"))) 

Sys.sleep(3) } 

Answer 1

Ну, вот один из способов.

# ... 
for (Individual_Day in 1:2) { 
Day_subset <- DF[DF$Day == as.integer(Individual_Day),] 
lower <- with(Day_subset,as.POSIXct(strftime(min(time),"%Y-%m-%d"))) 
upper <- with(Day_subset,as.POSIXct(strftime(as.Date(max(time))+1,"%Y-%m-%d"))-1) 
limits = c(lower,upper) 

print(ggplot(data=Day_subset, aes(x=time, y=observation)) + 
     geom_point() + 
     scale_x_datetime(breaks=("2 hour"), 
          minor_breaks=("1 hour"), 
          labels=date_format("%H:%M"), 
          limits=limits) 
    ) 
} 

Расчет для lower занимает минимальное время в подмножестве, и принуждает ее характер только с датой части (например, отсекает время часть). Преобразование обратно в POSIXct создает начало этого дня.

Расчет для upper немного сложнее. Вы должны преобразовать максимальное время в значение даты и добавить 1 (например, 1 день), затем преобразовать в символ (отделить часть времени), преобразовать обратно в POSIXct и вычесть 1 (например, 1 секунду). Это дает 23:59 в конце дня.

Огромное количество работы для такой маленькой вещи. Я надеюсь, что кто-то еще поставит более простой способ сделать это ...