полный временной ряд по группе в r

Question

у меня есть датафрейм

dat <- data.frame(c("G", "G", "G", "G"), c("G1", "G1", "G2", "G2"), c('2017-01-01', '2017-01-03', '2017-04-02', '2017-04-05'))

colnames(dat) <- c('Country', 'Place', 'date')

Я хотел бы получить следующие выходные данные: (полная дата для каждой (страны) группы)

dat <- data.frame(c("G", "G", "G", "G", "G", "G", "G"),
                  c("G1","G1", "G1", "G2", "G2", "G2", "G2"), 
                  c('2017-01-01', '2017-01-03','2017-01-03', 
                    '2017-04-02', '2017-04-03', '2017-04-04', '2017-04-05'))

Я пробовал:

dat = dat %>% group_by(Country, Place) %>% complete(date)

но это не работает. Может ли кто-нибудь помочь мне с этим?

Answer 1

Вы можете сделать:

dat %>%
  mutate(date = as.Date(date)) %>%
  group_by(Country, Place) %>%
  complete(date = seq.Date(min(date), max(date) , by= "day"))


# A tibble: 7 x 3
# Groups:   Country, Place [2]
  Country Place date      
  <fct>   <fct> <date>    
1 G       G1    2017-01-01
2 G       G1    2017-01-02
3 G       G1    2017-01-03
4 G       G2    2017-04-02
5 G       G2    2017-04-03
6 G       G2    2017-04-04
7 G       G2    2017-04-05

Answer 2

Вы можете сделать это и так:

library(tidyverse)

group_by(dat, Country, Place) %>% 
  expand(date = full_seq(as.Date(date), 1)) %>% 
  ungroup()

# # A tibble: 7 x 3
#   Country Place date      
#   <fct>   <fct> <date>    
# 1 G       G1    2017-01-01
# 2 G       G1    2017-01-02
# 3 G       G1    2017-01-03
# 4 G       G2    2017-04-02
# 5 G       G2    2017-04-03
# 6 G       G2    2017-04-04
# 7 G       G2    2017-04-05