R - Rolling sum over column in for loop with lead value

Question

I have the following data set:

set.seed(123)

df <- data.frame(x = sample(1:10, 20, replace = T), id = rep(1:2, each = 10))

At the moment