Wenn ich verstehe, was Sie richtig fragen, hier ist ein Beispiel dafür, wie Sie so etwas mit dem mtcars
Datensatz tun könnten. Dies verwendet dplyr
und ggplot2
library(dplyr)
library(ggplot2)
## Calculate 'y' for each cyl/vs pair
(mtcars_summary <-
mtcars %>%
arrange(cyl, vs) %>%
group_by(cyl, vs) %>%
summarise(count = n()) %>% # Count per cyl/vs pair
group_by(cyl) %>% # Here to be explicit, but can be left out.
mutate(count = cumsum(count)) %>% # Calculate 'y' for each cyl/vs pair
ungroup)
## cyl vs count
## (dbl) (dbl) (int)
## 1 4 0 1
## 2 4 1 11
## 3 6 0 3
## 4 6 1 7
## 5 8 0 14
ggplot(mtcars, aes(cyl, fill = factor(vs))) +
geom_bar() +
geom_line(aes(cyl, count), data = mtcars_summary) +
ggtitle('Data: mtcars')

Bitte auf Ihre Frage zu verbessern. Wie sehen Ihre Daten aus? Haben Sie eine kleine Untermenge, die Sie teilen könnten? Wenn nicht, bitte ein reproduzierbares Beispiel angeben. Was hast du bisher versucht und warum glaubst du, dass es nicht für dich funktioniert? –
Interessanterweise gibt die Quelle, auf die Sie verlinken, viele Empfehlungen für Visualisierungen, die keine Serienzeilen verwenden ... – Heroka