R 从循环创建数据帧

R 从循环创建数据帧,r,date,loops,dataframe,subset,R,Date,Loops,Dataframe,Subset,如何为wkend创建数据帧而不是不打印它 wkend<-as.Date(c("2013-01-04","2013-01-05","2013-01-06"),"%Y-%m-%d") while(wkend < "2013-12-27") { wkend <- wkend + 7 print(wkend) } wkend如果你想拥有一个data.frame,你需要将你的最后一天调整1,否则你的行数会不均匀。但是您可以使用lappy将seq.Date函数应用于wkend向

如何为wkend创建数据帧而不是不打印它

wkend<-as.Date(c("2013-01-04","2013-01-05","2013-01-06"),"%Y-%m-%d")
while(wkend < "2013-12-27") { 
   wkend <- wkend + 7
print(wkend)
 }

wkend如果你想拥有一个
data.frame
,你需要将你的最后一天调整1,否则你的行数会不均匀。但是您可以使用
lappy
seq.Date
函数应用于
wkend
向量中的每个元素,如下所示:

df <- data.frame( lapply( wkend , seq , to = as.Date( "2013-12-26" , "%Y-%m-%d" ) , by = 7 ) )
names( df ) <- c("Col1","Col2","Col3") # Call the columns whatever you want
head(df)
    Col1       Col2       Col3
1 2013-01-04 2013-01-05 2013-01-06
2 2013-01-11 2013-01-12 2013-01-13
3 2013-01-18 2013-01-19 2013-01-20
4 2013-01-25 2013-01-26 2013-01-27
5 2013-02-01 2013-02-02 2013-02-03
6 2013-02-08 2013-02-09 2013-02-10

df你好,欢迎来到SO。由于您是新来的,您可能希望阅读网站的和部分,以帮助您充分利用它。如果一个答案确实解决了你的问题,你可能想要考虑一下投票和/或标记它被接受来显示问题已经被答案,通过在适当的答案旁边划上绿色的小复选标记。你没有义务这么做,但这有助于保持网站上没有未回答的问题,并奖励那些花时间解决你问题的人。