Powiedz, że mam tę przykładową ramkę danych

set.seed(12345)
n1 <- 3
n2 <- 10
n3 <- 60

times <- seq(0, 100, 0.5)

individual <- c(rep(1, n1), 
                rep(2, n2), 
                rep(3, n3))

events <- c(sort(sample(times, n1)),
            sort(sample(times, n2)),
            sort(sample(times, n3)))

df <- data.frame(individual = individual, events = events)

Co daje

> head(df, 10)
   individual events
1           1   72.0
2           1   75.5
3           1   87.5
4           2    3.0
5           2   14.5
6           2   16.5
7           2   32.0
8           2   45.5
9           2   50.0
10          2   70.5

Chciałbym narysować zbiorczy wykres kroków zdarzeń, tak aby uzyskać jedną linię na osobę, która wzrasta o 1 za każdym razem, gdy zdarzenie jest „napotkane”.

Tak więc na przykład osoba 1 będzie miała wartość 0 do 72,0, a następnie przejdzie do wartości 1, aż do 75,5, gdy osiągnie wartość 2, a wartość do 3 na poziomie 87,5 na końcu wykresu.

Jak najłatwiej to zrobić?