데이터 프레임의 범위 행 합계

Question

아래 데이터 프레임이 있으며 다음 달의 SalesForecasts의 합계를 매월 계산하여 SumNextMonths 열 하나를 추가하고 싶습니다. 예를 들어

: 2 월

SumNextMonths = SalesForecastsof 월 + 4월 + 월.

d<- data.frame(Period =c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"), 
SalesForecasts = c(100, 100, 200, 100, 300, 300, 100, 100, 200, 300,100, 100, 500, 500, 1000, 500, 1500, 1500, 500, 500, 1000, 1500, 500, 500)) 

진행 방법을 아는 사람이 있습니까?

는 일반적인 대답이 될 수있다, 건배

Answer 1

감사 :

library(dplyr) 
library(zoo) 
    d %>% 
    mutate(temp_lead = lead(SalesForecasts, n = 1), 
      SalesforNext3Months = rollapply(data = temp_lead, 
             width = 3, 
             FUN = sum, 
             align = "left", 
             fill = NA, 
             na.rm = T))%>% 
    select(-temp_lead) 
    Period SalesForecasts SalesforNext3Months 
1  Jan   100     400 
2  Feb   100     600 
3  Mar   200     700 
4  Apr   100     700 
5  May   300     500 
6  Jun   300     400