split（）とcumsum（）を組み合わせます

Question

私は、特定のサッカー選手によってシーズンごとに累積的な目標の統計を作成しようとしています。カット機能を使用して、ゲームの日付からシーズンを取得しました。このデータフレームに対応するデータがあります

df.raw <-
    data.frame(Game = 1:20,
            Goals=c(1,0,0,2,1,0,3,2,0,0,0,1,0,4,1,2,0,0,0,3),     
               season = gl(4,5,labels = c("2001", "2002","2003", "2004")))

実生活では、季節あたりのゲームの数は一定ではないかもしれません

このように見えるデータになってしまいます

df.seasoned <-
    data.frame(Game = 1:20,seasonGame= rep(1:5),
            Goals=c(1,0,0,2,1,0,3,2,0,0,0,1,0,4,1,2,0,0,0,3),
            cumGoals = c(1,1,1,3,4,0,3,5,5,5,0,1,1,5,6,2,2,2,2,5),     
               season = gl(4,5,labels = c("2001", "2002","2003", "2004")))

目標が1年以内に累積的に合計され、シーズンのゲーム番号