2013-08-15 2 views
2

인쇄하지 말고 wkend 용 데이터 프레임을 어떻게 만듭니 까? 당신이 data.frame 그렇지 않으면 당신이 고르지 행이됩니다 갖고 싶어루프에서 데이터 프레임 만들기

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) 
} 
+0

안녕, SO에 오신 것을 환영합니다. 여기에서 꽤 새로 워서 [** about **] (http://stackoverflow.com/about) 및 [** FAQ **] (http://stackoverflow.com/faq)를 읽으십시오. 웹 사이트의 섹션을 사용하여 최대한 활용할 수 있습니다. 대답이 문제를 해결할 수있는 경우 적절한 답변 옆에있는 작은 초록색 체크 표시를 선택하여 질문을 응답 한 것으로 표시하려면 * 상향 투표를 고려하거나 허용으로 표시 할 수 있습니다. 당신은 **이 일을하는 ** ** 의무가 있지만 답변되지 않은 질문에서 사이트를 깨끗하게 유지하고 문제를 해결하는 데 시간을 투자하는 사람들에게 보상합니다. –

답변

3

당신은 하나 당신의 마지막 날을 조정해야합니다. 하지만이처럼 wkend 벡터의 각 요소에 seq.Date 기능을 적용 할 lapply를 사용할 수 있습니다

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