Combinant Split () et Cumsum ()

Question

J'essaie de produire des statistiques pour des buts cumulatifs par saison par un joueur de football particulier. J'ai utilisé la fonction de coupe pour obtenir la saison des dates du jeu. J'ai des données qui correspondent à cette dataframe

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")))

Dans la vraie vie, le nombre de matchs par saison peut ne pas être constant

Je veux me retrouver avec des données qui ressemblent à ceci

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")))

Avec les buts résumés cumulativement dans l'année et un numéro de jeu pour la saison