데이터 프레임에 날짜 열을 추가하고 싶습니다. 열에는 현재 날짜와 다음 2 년 동안의 같은 날이 포함됩니다. 예를 들어, 데이터 프레임을 고려하십시오.df
Date Index Group
12/31/2012 A 1
12/31/2013 B 1
12/31/2014 B 2
Date 열을 다음과 같이 변경하고 싶습니다. df2
Date Index Group
12/31/2012 A 1
12/31/2013 A 1
12/31/2014 A 1
12/31/2013 B 1
12/31/2014 B 1
12/31/2015 B 1
12/31/2014 B 2
12/31/2015 B 2
12/31/2016 B 2
이것이 내가 시도한 것입니다.
library(lubridate)
library(dplyr)
df2 = df1 %>% mutate(Date = Date + years(2))
다음은 해결책입니다.
생성 된 데이터 :
example<-data.frame( Date = c("12/31/2012", "12/31/2013", "12/31/2014"), index = c("A", "B", "B"), group = c(1,1,2))
print(example)
산출
Date index group
1 2012-12-31 A 1
2 2013-12-31 B 1
3 2014-12-31 B 2
솔루션 코드 :
library(lubridate)
library(dplyr)
example[,1]<-mdy(example[,1])
df1<-example %>% mutate(Date = Date%m+% years(1))
df2<-example %>% mutate(Date = Date%m+% years(2))
final_df<-rbind(example,df1,df2)
print(final_df)
산출
Date index group
1 2012-12-31 A 1
2 2013-12-31 B 1
3 2014-12-31 B 2
4 2013-12-31 A 1
5 2014-12-31 B 1
6 2015-12-31 B 2
7 2014-12-31 A 1
8 2015-12-31 B 1
9 2016-12-31 B 2
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다