[问题] 如何快速复制新增特定数笔资料

楼主: studioA (understand?)   2023-09-07 10:29:48
[问题类型]:
程式咨询(我想用R 做某件事情,但是我不知道要怎么用R 写出来)
[软件熟悉度]:
使用者(已经有用R 做过不少作品)
[问题叙述]:
我有一份资料,格式如下
订位日期 活动日期 活动时间 活动名称 会议室 人数
2022/1/03 2022/2/5~2022/2/8 09:00~18:00 某某国际研讨会 301会议室 100
2022/1/20 2022/1/25~2022/1/25 10:00~12:00 某某记者会 201会议室 50
2022/2/1 2022/2/2~2022/2/4 13:00~17:00 瑜珈课程 107会议室 10
我想将活动日期拆成一天一笔资料,格式如下
活动日期 活动时间 活动名称 会议室 人数
2022/02/05 09:00~18:00 某某国际研讨会 301会议室 100
2022/02/06 09:00~18:00 某某国际研讨会 301会议室 100
2022/02/07 09:00~18:00 某某国际研讨会 301会议室 100
2022/02/08 09:00~18:00 某某国际研讨会 301会议室 100
2022/01/25 10:00~12:00 某某记者会 201会议室 50
2022/02/02 13:00~17:00 瑜珈课程 107会议室 10
2022/02/03 13:00~17:00 瑜珈课程 107会议室 10
2022/02/04 13:00~17:00 瑜珈课程 107会议室 10
我虽然先算出每个活动的总天数,然后一一新增复制合并相同活动天数,
但我觉这个方法很笨,所以上来请教各位大师 是否有更快速的写法
[程式范例]:
data2 <- rbind.data.frame(DT[which(DT$活动天数==2),],
DT[which(DT$活动天数==2),])
data3 <- rbind.data.frame(DT[which(DT$活动天数==3),],
DT[which(DT$活动天数==3),],
DT[which(DT$活动天数==3),]) )
以此类推后 在合并所有资料集
allDT<- rbind.data.frame(DT,data2,data3, .....,data11)
[环境叙述]:
R 4.0.3
请提供 sessionInfo() 的输出结果,
里面含有所有你使用的作业系统、R 的版本和套件版本资讯,
让版友更容易找出错误
[关键字]:
merge
作者: obarisk (OSWALT)   2023-09-07 10:40:00
先切字段把活动日期切成 起始日跟结束日group_by 再用 complete
楼主: studioA (understand?)   2023-09-07 17:15:00
上面的方法不成功,会少很多中间日期的资料

Links booklink

Contact Us: admin [ a t ] ucptt.com