Как дублировать строки для обратной засыпки данных на определенную дату на основе другого столбца в R?

Question

У меня есть фрейм данных с 7 переменными и миллионами строк.Я хотел бы создать строки для «обратной заполнения» данных к определенному моменту времени на основе экземпляра, для которого уже был закодирован код.

Экземпляр рассчитывается по году, ID, Var1, Var2 и номеру.Вы заметите, что дата первого экземпляра варьируется в зависимости от этих «групп».Для групп, у которых первый экземпляр не 01.01.2015, мне нужно «заполнить» их данные до 1 января 2015 года.

Вот начальный фрейм данных:

Date <- c("4/1/2015", "5/1/2015","1/1/2015","2/1/2015","3/1/2015","4/1/2015","5/1/2015","3/1/2015","4/1/2015","5/1/2015")
Year <- 2015
ID <- c("123456", "123456", "234567", "234567", "234567", "234567", "234567", "123456", "123456", "123456")
Var1 <- c(1,1,2,2,2,2,2,1,1,1)
Var2 <- c(10,10,10,10,10,10,10,11,11,11)
Number <- c("0001", "0001", "0001","0001","0001","0001","0001","0002","0002","0002")
Instance <- c(1,2,1,2,3,4,5,1,2,3)
df <- data.frame(Date, Year, ID, Var1, Var2, Number, Instance)

Вот мой ожидаемый результат:

Date <- c("1/1/2015","2/1/2015","3/1/2015","4/1/2015", "5/1/2015","1/1/2015","2/1/2015","3/1/2015","4/1/2015","5/1/2015","1/1/2015","2/1/2015","3/1/2015","4/1/2015","5/1/2015")
Year <- 2015
ID <- c("123456","123456","123456","123456", "123456", "234567", "234567", "234567", "234567", "234567", "123456","123456","123456", "123456", "123456")
Var1 <- c(1,1,1,1,1,2,2,2,2,2,1,1,1,1,1)
Var2 <- c(10,10,10,10,10,10,10,10,10,10,11,11,11,11,11)
Number <- c("0001","0001","0001","0001", "0001", "0001","0001","0001","0001","0001","0002","0002","0002","0002","0002")
Instance <- c(0,0,0,1,2,1,2,3,4,5,0,0,1,2,3)
df <- data.frame(Date, Year, ID, Var1, Var2, Number, Instance)

Answer 1

Опция будет complete после группировки по интересующим столбцам

library(tidyverse)
library(lubridate)
df %>% 
  mutate(Date = dmy(Date)) %>% 
  group_by(Year, ID, Var1, Var2, Number) %>% 
  complete(Date = seq(floor_date(Date, 'month')[1], max(Date), 
        by = '1 day'), fill = list(Instance = 0)) %>%
  select(names(df))
# A tibble: 15 x 7
# Groups:   Year, ID, Var1, Var2, Number [6]
#   Date        Year ID      Var1  Var2 Number Instance
#   <date>     <dbl> <fct>  <dbl> <dbl> <fct>     <dbl>
# 1 2015-01-01  2015 123456     1    10 0001          0
# 2 2015-01-02  2015 123456     1    10 0001          0
# 3 2015-01-03  2015 123456     1    10 0001          0
# 4 2015-01-04  2015 123456     1    10 0001          1
# 5 2015-01-05  2015 123456     1    10 0001          2
# 6 2015-01-01  2015 123456     1    11 0002          0
# 7 2015-01-02  2015 123456     1    11 0002          0
# 8 2015-01-03  2015 123456     1    11 0002          1
# 9 2015-01-04  2015 123456     1    11 0002          2
#10 2015-01-05  2015 123456     1    11 0002          3
#11 2015-01-01  2015 234567     2    10 0001          1
#12 2015-01-02  2015 234567     2    10 0001          2
#13 2015-01-03  2015 234567     2    10 0001          3
#14 2015-01-04  2015 234567     2    10 0001          4
#15 2015-01-05  2015 234567     2    10 0001          5