r - 在r中的数据框中连续按年求和

Question

我有一个包含两列(年份和降水)的数据框。在单列中，年份被列出，从 1900 年开始，到 2014 年结束，再次从 1900 年开始。在另一列中，我有相应年份的降水值。现在我想将 1900 年的所有降水量添加为 1 个值，将 1901 年的所有降水量添加为 1 到 2014 年。我的数据如下所示:

Year    Precipitation

1900    4.826
1901    37.592
2014    14.224
1900    45.974
1901    46.228
2014    79.502
1900    52.578
1901    22.30
2014    15.25

结果应如下所示:

Year   Precipitation

1900   103.378
1901   106.12
2014   108.976

到目前为止我写了一个代码但它不起作用，如果有人可以修复它吗？

data=read.table('precipitation.csv',header=T,sep=',')
frame=data.frame(data)
cumcum=tapply(frame$Precipitation, cumsum(frame$year==1), FUN=sum, na.rm=TRUE)

谢谢

Answer 1

试试数据表

library(data.table)
frame=fread('precipitation.csv',header=TRUE,sep=',')    
frame[, sum(Precipitation), by = Year]