很久沒寫R了 借用一下locka大的資料
基本思路:
1. 取出活動開始時間
2. 取出活動結束時間
3. 做出活動時間的向量
4. 展開data.table
library(data.table)
DT <- data.table(
booking_date = c("2022/1/03","2022/1/20","2022/2/1"),
activity_period = c(
"2022/2/5~2022/2/8","2022/1/25~2022/1/25","2022/2/2~2022/2/4"
),
activity_time = c("09:00~18:00","10:00~12:00","13:00~17:00"),
activity_name = c("某某國際研討會","某某記者會","瑜珈課程"),
booking_room = c("301會議室","201會議室","107會議室"),
number_people = c(100, 50, 10)
)
cols <- copy(names(DT))
DT[ , activity_start_date := as.Date(tstrsplit(
activity_period, "~", fixed=TRUE, keep=1L)[[1]])]
DT[ , activity_end_date := as.Date(tstrsplit(
activity_period, "~", fixed=TRUE, keep=2L)[[1]])]
DT[ , activity_date_vec := mapply(function(s,e) seq.Date(s, e, by="1 day"),
activity_start_date, activity_end_date)]
DT[ , .(activity_date = as.Date(unlist(activity_date_vec))), by = c(cols)]
結果圖: https://i.imgur.com/kcEXSPS.png
※ 引述《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), 來自: 125.229.239.131 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1694095937.A.81A.html