R Conditional subtraction from the next unequal value

Question

Given a larger data frame with around 300k+ rows and 14 columns in the following form:

df <- data.frame(team_id = c(rep(1,10),rep(2,10),rep(3,10),rep(4,10)