作者celestialgod (天)
看板R_Language
标题Re: [问题] 依特定条件补足日期
时间Tue Jun 6 20:07:44 2017
carl大已经回答的满完美的
不过有一个函数,我推荐你试试看
full_seq + unnest的应用:
library(dplyr)
library(tidyr)
DF <- data.frame(Group = c("A", "A", "B", "B", "C", "C"),
Status = rep(c("Start", "End"), times = 3),
Date = as.Date(c("2016/01/01", "2016/01/15",
"2016/01/09", "2016/02/01",
"2016/01/02", "2016/01/07")))
DF %>% group_by(Group) %>%
summarise(Date2 = list(full_seq(Date, 1))) %>%
unnest
※ 引述《menghsuanliu (库库少)》之铭言:
: [问题类型]:
: 程式谘询(我想用R 做某件事情,但是我不知道要怎麽用R 写出
: [软体熟悉度]:
: 入门(写过其他程式,只是对语法不熟悉)
: [问题叙述]:
: 我想依group,把日期补足(参考附图)
: http://i.imgur.com/ef6uHfT.jpg
: http://i.imgur.com/UasIAhm.jpg
: [程式范例]:
: [环境叙述]:
: [关键字]:
:
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 36.233.49.200
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1496750867.A.503.html
1F:推 menghsuanliu: 超级感谢,一行指令完成我的需求 06/06 21:27
2F:推 carl090105: 推~ By the way如果使用data.table的话就不用unnest了 06/06 21:58
恩 data.table是可以不用用到unnest
但是dplyr用do没有很方便,不如这种方式就是
而且说实话,我到现在还是不会写dplyr的do XDD
※ 编辑: celestialgod (36.233.49.200), 06/06/2017 22:03:46