如何用R计算足球得分目标的时差

Question

I would like to get a numeric vector of time gaps between goals scored by a soccer team

df <- data.frame(game=c(1,2,3,4,5,6,6,6,7),goaltime=c(NA,35,51,NA,NA,2,81,90,15))

NA indicates no goal was scored by the team in that game. The earliest a goal can be scored in a game is 1

Each game has a total time of 90 minutes so the output vector should be

c(125,106,221,79,9,15,75)

Answer 1

You can try:

diff(c(0,setdiff(90*(df$game-1)+df$goaltime,NA),90*max(df$game)))
#[1] 125 106 221  79   9  15  75