Вставьте новые ряды строк на основе метки времени в R

Question

У меня есть таблица данных с двумя параметрами (дата и статусы), теперь я хочу вставить новые строки на весь день на основе исходной таблицы.

правила данных:

1. столбце Состояние содержит только «0» и «1»
2. тайм-штамп, который hasnt был записан в таблице же с его следующей ближайшей tiemstamp в таблице.
3. колонна Дата всегда увеличивают по времени :)

Например, простой ввод:

создать данные с кодом ниже:

dd <- data.table(date = c("2015-07-01 00:00:02", "2015-07-01 00:00:04", "2015-07-01 00:00:08"), 
      status = c(0,1,0)) 

выставленный на продажу:

мое решение:

1. рассчитать разницу во времени для каждых двух строках, а затем сохранить в новой колонке под названием time_diff
2. вставки новой строки в петле на основе time_diff

он может работать, но проблема заключается в том, что время вычисления слишком велико, так как столько циклов. Я думаю, что может быть простым решением для этого случая

Любой помощи или предложение была бы весьма признателен :)

спасибо!

Answer 1

Вот еще одна идея

library(dplyr) 
library(tidyr) 
library(lubridate) 

dd %>% 
    mutate(date = ymd_hms(date)) %>% 
    complete(date = seq(floor_date(min(date), "day"), max(date), 1)) %>% 
    fill(status, .direction = "up") 

Что дает:

## A tibble: 9 × 2 
#     date status 
#    <dttm> <dbl> 
#1 2015-07-01 00:00:00  0 
#2 2015-07-01 00:00:01  0 
#3 2015-07-01 00:00:02  0 
#4 2015-07-01 00:00:03  1 
#5 2015-07-01 00:00:04  1 
#6 2015-07-01 00:00:05  0 
#7 2015-07-01 00:00:06  0 
#8 2015-07-01 00:00:07  0 
#9 2015-07-01 00:00:08  0 

Answer 2

Один из способов сделать это быстрее, чтобы использовать zoo и merge два временных рядов (as shown in the SO answer):

1. Первый построенный из ваших данных.
2. Второй - это временный ряд с наблюдениями, которые начинаются и заканчиваются по вашему желанию.

Затем заполните NA с помощью слияния, используя na.locf. В коде:

## first convert your date column to date-time 
dd$date <- as.POSIXct(dd$date,format="%Y-%m-%d %H:%M:%S") 
## set dd as data frame 
setDF(dd) 
library(zoo) 
## construct zoo time series for your data 
dd.zoo <- zoo(dd[,-1],dd[,1]) 
## do the merge and use `na.locf` to fill in the NA's 
output <- na.locf(merge(dd.zoo, 
         zoo(,seq(as.POSIXct("2015-07-01 00:00:00",format="%Y-%m-%d %H:%M:%S"), 
           end(dd.zoo),by="sec")), all=TRUE), 
        fromLast=TRUE) 

Здесь, начало и конец временного ряда слиться является 2015-07-01 00:00:00 до конца ваших данных с помощью секунд. В общем, вы можете указать любые два момента времени. merge использует all=TRUE для выполнения внешнего соединения, где все наблюдения объединены в выход. Те, кто не находится в исходных данных, будут заполнены NA. Наконец, используйте na.locf с fromLast=TRUE, чтобы заменить NA с последним номером NA назад от последнего наблюдения.

Использование данных с dd преобразуется в кадр данных:

print(output) 
##2015-07-01 00:00:00 2015-07-01 00:00:01 2015-07-01 00:00:02 2015-07-01 00:00:03 
##     0     0     0     1 
##2015-07-01 00:00:04 2015-07-01 00:00:05 2015-07-01 00:00:06 2015-07-01 00:00:07 
##     1     0     0     0 
##2015-07-01 00:00:08 
##     0 

Обратите внимание, что output представляет собой серию zoo. Для того, чтобы преобразовать обратно в data.table:

output <- data.table(date=index(output),status=as.data.frame(output)$output) 
##     date status 
##1: 2015-07-01 00:00:00  0 
##2: 2015-07-01 00:00:01  0 
##3: 2015-07-01 00:00:02  0 
##4: 2015-07-01 00:00:03  1 
##5: 2015-07-01 00:00:04  1 
##6: 2015-07-01 00:00:05  0 
##7: 2015-07-01 00:00:06  0 
##8: 2015-07-01 00:00:07  0 
##9: 2015-07-01 00:00:08  0