Агрегирование на основе предыдущего года и этого года

Question

У меня есть эти наборы данных

month Year Rain  
10    2010 376.8  
11    2010 282.78  
12    2010 324.58  
1     2011 73.51    
2     2011 225.89  
3     2011 22.96  

Я использовал

df2prnext<-
  aggregate(Rain~Year, data = subdataprnext, mean)

но мне нужно среднее значение 217,53.

Я не получаю ожидаемого результата. Спасибо за вашу помощь.