r - 在 r 中按组完成时间序列
问题描述
我有一个数据框
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)
但它不起作用。谁能帮我这个?
解决方案
你可以做:
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
推荐阅读
- python - 如何根据另一个文本的标签获取文本
- c - 如何在 C 中创建指向新对象(变量的递减值)的指针作为参数?
- flutter - Flutter Streambuilder 到重复的数据表标题
- python - python中是否有任何函数可以定位所有包中的类?
- html - 如何在没有 Javascript 的情况下创建一个简单的浮动按钮
- node.js - 在 pm2 部署期间如何将 .env 文件发送到 git 子模块?
- javascript - 文本函数不显示更新的变量
- highcharts - 如何围绕 require js 函数编写定义包装器
- android - Android前台服务针对同一服务的多个通知
- python - Onnx 模型输入大小与 Opencv 帧大小不同