Проблема, которую я пытаюсь решить, заключается в том, что у меня есть фрейм данных с отсортированной переменной POSIXct в нем. Каждая строка разделена на категории, и я хочу получить разницу во времени между каждой строкой для каждого уровня и добавить эти данные обратно в новую переменную. Воспроизводимая проблема приведена ниже. Приведенная ниже функция предназначена только для создания выборочных данных со случайным временем для цели этого вопроса.
random.time <- function(N, start, end) {
st <- as.POSIXct(start)
en <- as.POSIXct(end)
dt <- as.numeric(difftime(en, st, unit="sec"))
ev <- sort(runif(N, 0, dt))
rt <- st + ev
return(rt)
}
Код для моделирования проблемы выглядит следующим образом:
set.seed(123)
category <- sample(LETTERS[1:5], 20, replace=TRUE)
randtime <- random.time(20, '2015/06/01 08:00:00', '2015/06/01 18:00:00')
df <- data.frame(category, randtime)
Ожидаемый результирующий фрейм данных выглядит следующим образом:
>category randtime timediff (secs)
>A 2015-06-01 09:05:00 0
>A 2015-06-01 09:06:30 90
>A 2015-06-01 09:10:00 210
>B 2015-06-01 10:18:58 0
>B 2015-06-01 10:19:58 60
>C 2015-06-01 08:14:00 0
>C 2015-06-01 08:16:30 150
Каждая подгруппа в выводе будет иметь первую строку со значением timediff, равным 0, поскольку предыдущей строки нет. Я смог сгруппировать по категориям и вызвать следующую функцию для вычисления различий, но не смог заставить ее сопоставить окончательный результат для всех групп категорий.
getTimeDiff <- function(x) {
no_rows <- nrow(x)
if(no_rows > 1) {
for(i in 2:no_rows) {
t <- x[i, "randtime"] - x[i-1, "randtime"]
}
}
}
Я занимаюсь этим уже два дня, и мне не повезло, поэтому буду очень признателен за любую помощь. Спасибо.
