Считать данные
df <- read.table(textConnection("
09/11/2011 13:46:39
09/11/2011 13:45:18
09/11/2011 13:44:58
09/11/2011 13:40:02
09/11/2011 13:37:58
09/11/2011 13:36:09
09/11/2011 13:32:31
09/11/2011 13:25:29
09/11/2011 13:24:40
09/11/2011 13:23:48
"), sep="\n")
Конвертировать в POSIXct
дату
df$V1 <- as.POSIXct(df$V1, format="%d/%m/%Y %H:%M:%S")
Загрузка lattice
и график с разницей во времени с histogram
.
Функция diff
очень удобна для расчета лаговых разниц. Вы заметите, что я также использую unclass
, потому что для класса difftime
.
нет метода гистограммы.
library(lattice)
histogram(unclass(-diff(df$V1)), xlab="Time difference")