Combinando split () e cumsum ()

Question

Sto cercando di produrre statistiche per gol cumulativi per stagione da un particolare calciatore. Ho usato la funzione Cut per ottenere la stagione dalle date del gioco. Ho dati che corrispondono a questo frame dati

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

Nella vita reale, il numero di partite per stagione potrebbe non essere costante

Voglio finire con dati che assomigliano a questo

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 gli obiettivi sommati cumulativamente entro l'anno e un numero di gioco per la stagione