как, в R, рассчитать время дня и дату календаря

Question

Я сожалею, что прихожу сюда после того, как вы сожгли часы поиска в Интернете по этому упрощенному вопросу.

У меня есть несколько наборов данных для построения в R, каждый из которых состоит из двух столбцов данных: время, дата. Я использую R 2.11.0 на компьютере под управлением Windows через Rgui.

Время «время суток» означает, что произошло событие. В качестве примера, он распознается как:

Factor w/ 87 levels "5:53","5:54",..: 84 85 85 85 86 ... 

дата календарной даты, признаны:

Class 'Date' num [1:730] 13879 13880 13881 13882 13883 ... 

время значения записываются в формате 24-часовой тактовой, ч: мм или чч: мм. Значения даты отображаются yyyy-mm-dd.

Я хочу рассчитать время (по оси Y) по сравнению с датой (ось х).

Использование

plot(date,time) 

дает точный вид участка, но ось у помечена как числовые значения коэффициента (примерно от 0 до 90), а не желаемого, временно упорядоченных уровней фактора переменная. Ось X помечена в желаемом, удобочитаемом формате.

Как это исправить? Есть ли в R формат «времени дня», в который я могу преобразовать переменную «время»? Впоследствии я хотел бы сделать арифметику и по значениям времени, и не хотел бы переносить один столбец значений для использования в построении и один столбец значений для математики.

Я провел несколько примеров онлайн-манипуляций (даты + времени) в R и преобразовал их в разные форматы. Я не считаю, что это моя проблема, так как у меня есть отдельные поля для времени и даты и вы хотите построить один за другим.

Заранее благодарю вас за ваши предложения или ваши указания на доступный в Интернете ресурс (нет соответствующих библиотек или книжных магазинов в моем местоположении).

Answer 1

Там может быть проще для этого, но вы всегда можете пометить ось y самостоятельно. Настройте вектор ticksAt ниже, чтобы найти что-то подходящее для ваших данных.

Data <- data.frame(date=Sys.Date()+1:10,time=paste(5,41:50,sep=":")) 
with(Data, plot(date,time,yaxt="n")) 
ticksAt <- c(1,3,5,7,9) 
axis(2, at=ticksAt, labels=as.character(Data$time)[ticksAt]) 

?plot.zoo имеет некоторые хорошие примеры того, как создать довольно оси аннотаций, хотя некоторые из них могут быть зоо- специфичны. ?par - также хороший ресурс.

Answer 2

ts и timeSeries - два хороших варианта.
Посмотрите на
Related

Answer 3

Предположим, у вас есть два вектора, один из Date класса под названием «дт», а другой фактор назван «тм»:

x <- paste(as.character(dt[1:2]), as.character(tm)) 
strptime(x, "%Y-%m-%d %H:%M") 
## [1] "2008-01-01 05:53:00" "2008-01-02 05:54:00" 
class(strptime(x, "%Y-%m-%d %H:%M")) 
## [1] "POSIXt" "POSIXlt"