Combinando Split () y Cumsum ()

Question

Estoy tratando de producir estadísticas para objetivos acumulativos por temporada por parte de un jugador de fútbol en particular. He usado la función de corte para obtener la temporada de las fechas del juego. Tengo datos que corresponden a este marco de datos

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

En la vida real, el número de juegos por temporada puede no ser constante

Quiero terminar con datos que se ven así

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

Con los goles sumulativamente resumidos dentro de un año y un número de juego para la temporada