我目前在R中有一个边缘列表,如下所示:
From To Start End
A B 1/1/2011 1/2/2011
A F 1/1/2011 1/1/2011
B G 1/2/2011 1/2/2011
C A 1/2/2011 1/6/2011
D C 1/2/2011 1/3/2011
我想要做的是在R中创建一个类似于
的新边列表From To Time
A B 1/1/2011
A B 1/2/2011
A F 1/1/2011
B G 1/2/2011
C A 1/2/2011
C A 1/3/2011
C A 1/4/2011
C A 1/5/2011
C A 1/6/2011
D C 1/2/2011
D C 1/3/2011
换句话说,我想在开始日期和结束日期之间的每一天(包括第一个表格)中复制第一个表格中每一行的前两列。这样做有什么好办法?非常感谢你的帮助!
答案 0 :(得分:1)
Date
班级有seq
个功能(seq.Date
)可以使用,或者您可以使用IDate
中的data.table
:
df = read.table(text = 'From To Start End
A B 1/1/2011 1/2/2011
A F 1/1/2011 1/1/2011
B G 1/2/2011 1/2/2011
C A 1/2/2011 1/6/2011
D C 1/2/2011 1/3/2011', header = T)
library(data.table)
dt = data.table(df)
dt[, cbind(.SD, seq(as.Date(Start, '%m/%d/%Y'),
as.Date(End, '%m/%d/%Y'), 1)), by = list(Start,End)]
# or
dt[, cbind(.SD, seq(as.IDate(Start, '%m/%d/%Y'),
as.IDate(End, '%m/%d/%Y'), 1)), by = list(Start,End)]
# Start End From To V2
# 1: 1/1/2011 1/2/2011 A B 2011-01-01
# 2: 1/1/2011 1/2/2011 A B 2011-01-02
# 3: 1/1/2011 1/1/2011 A F 2011-01-01
# 4: 1/2/2011 1/2/2011 B G 2011-01-02
# 5: 1/2/2011 1/6/2011 C A 2011-01-02
# 6: 1/2/2011 1/6/2011 C A 2011-01-03
# 7: 1/2/2011 1/6/2011 C A 2011-01-04
# 8: 1/2/2011 1/6/2011 C A 2011-01-05
# 9: 1/2/2011 1/6/2011 C A 2011-01-06
#10: 1/2/2011 1/3/2011 D C 2011-01-02
#11: 1/2/2011 1/3/2011 D C 2011-01-03