Angenommen, ich habe diesen Beispieldatenrahmen

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)

Welches gibt

> 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

Ich möchte eine kumulative Schrittgrafik der Ereignisse zeichnen, sodass ich pro Person eine Linie erhalte, die jedes Mal um 1 erhöht wird, wenn ein Ereignis "auftritt".

So ist zum Beispiel die Einzelperson 1 0 bis 72,0 und steigt dann bis 75,5 auf 1, wenn sie 2 wird, und bis 87,5 bis zum Ende des Graphen auf 3.

Was wäre der einfachste Weg, das zu tun?