Как обнаружить и повторно вставить отсутствующие данные?

У меня есть недостающая строка в таблице данных, которая описывает функцию от time, sid и s.c до count:

> dates.dt[1001:1011]
        sid   s.c  count                time
 1: missing CLICK 104192 2013-05-25 10:00:00
 2: missing SHARE   7694 2013-05-25 10:00:00
 3: present CLICK  99573 2013-05-25 10:00:00
 4: present SHARE  89302 2013-05-25 10:00:00
 5: missing CLICK     28 2013-05-25 11:00:00
 6: present CLICK     25 2013-05-25 11:00:00
 7: present SHARE     15 2013-05-25 11:00:00
 8: missing CLICK 104544 2013-05-25 12:00:00
 9: missing SHARE   7253 2013-05-25 12:00:00
10: present CLICK 105891 2013-05-25 12:00:00
11: present SHARE  88709 2013-05-25 12:00:00

недостающая строка (я ожидаю строку для каждого из двух значений 1-го и 2-го столбцов и каждого временного фрагмента):

    missing SHARE      0 2013-05-25 11:00:00

Как обнаружить и восстановить такие отсутствующие строки?

Я обнаружил, что это было

library(data.table)
total <- dates.dt[, list(sum(count)) , keyby="time"]
setnames(total,"V1","total")
ts <- dates.dt[s.c=="SHARE" & sid=="missing", list(sum(count)) , keyby="time"]
cat("SHARE/missing:",nrow(ts),"rows\n")
stopifnot(identical(total$time,ts$time)) # --> ERROR!
total$shares.missing <- ts$V1

Теперь, я думаю, я могу найти первое место, где ts$time и total$time различаются и вставляют 0 строк, но это кажется довольно утомительным процесс.

Спасибо!

Ответ 1