野人献曝一下 思路: 1. 把活动日期栏位拆成start,end两个栏位, 并用lubridate:ymd()转成日期(date格式) 2. 用seq(start, end, by="day") 来创造期间的日期序列(list格式) 3. 新增一个days栏位，里面存步骤2得到的日期list 4. 用订位日期group_by(), 再把days栏位的list给unnest() 大概是这样~ library(tidyr) library(dplyr) library(lubridate) order_date <- c("2022/1/03","2022/1/20","2022/2/1") date <- c("2022/2/5~2022/2/8","2022/1/25~2022/1/25","2022/2/2~2022/2/4") time <- c("09:00~18:00","10:00~12:00","13:00~17:00") name <- c("某某国际研讨会","某某记者会","瑜珈课程") room <- c("301会议室","201会议室","107会议室") people <- c(100,50,10) test_df <- tibble(order_date, date, time, name, room, people) test_df %>% mutate(start=ymd(sub("~.*","",date)),end=ymd(sub(".*~","",date))) %>% group_by(order_date) %>% mutate(days = list(seq(min(start),max(end),by="day"))) %>% unnest(days) %>% ungroup() %>% select(days, time, name, room, people) https://i.imgur.com/bPhFs8D.jpg ※ 引述《studioA (understand?)》之铭言： : [问题类型]: : 程式谘询(我想用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 : --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.164.225.2 (台湾) ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1694085976.A.5DA.html ※ 编辑: locka (1.164.225.2 台湾), 09/07/2023 19:54:11 ※ 编辑: locka (1.164.225.2 台湾), 09/07/2023 20:40:37