ggplot: Geige zu einem Liniendiagramm hinzufügen

Question

Ich zeichne ein Liniendiagramm in ggplot. Jede Zeile entspricht einer Person und deren Entwicklung im Laufe der Zeit. Ich möchte eine Violine hinzufügen bei x = 11

die Gesamtverteilung der Werte auf dem y dargestellt zeigen: Ein vereinfachte, reproduzierbares Beispiel:

dat <- data.frame(x=rep(1:10, 10), y=rnorm(100), person=rep(LETTERS[1:10], each=10)) 
ggplot(dat, aes(x, y, group=person)) + geom_line(aes(color=person)) 

Welche produziert -Achse.

Wenn ich einen + geom_violin() zum ggplot Aufruf hinzufüge, wird eine Geige bei jedem Wert von x gezeichnet (was Sinn macht). Aber was ich will ist, die Geige hinzuzufügen, die ich mit ggplot(dat, aes(x, y)) + geom_violin() bekommen würde.

Wie kombiniere ich diese beiden geom_ s in einem einzigen Diagramm, um einen vollständigen Überblick über meine Daten zu geben?

---

EDIT: Ich habe es mit geom_errorbar zu arbeiten, aber nicht mit einer Geige etwas ähnliches zu arbeiten:

ggplot(dat, aes(x, y, group=person)) + geom_line(aes(color=person)) + 
    geom_errorbar(aes(x=11, ymax=mean(dat$y)+sd(dat$y), ymin=mean(dat$y)-sd(dat$y))) + 
    geom_point(aes(x=11, y=mean(dat$y)), size=4) 

Welche gibt mir diese:

Im Idealfall würde ich eine Violine anstelle der Fehlerbalken wünschen, um die Verteilung besser widerzuspiegeln.

Answer 1

Sie müssen group = 1 verwenden innerhalb des aes von geom_violin:

ggplot(dat, aes(x, y)) + 
    geom_line(aes(color = person)) + 
    geom_violin(aes(group = 1), fill = NA, size = 1.5) + 
    theme_minimal() 

ergibt dies:

die Violine zu zeichnen neben dem Liniendiagramm Sie von grid.arrange machen aus dem gridExtra Paket:

p1 <- ggplot(dat, aes(x, y)) + 
    geom_line(aes(color = person)) + 
    theme_minimal(base_size = 14) 
p2 <- ggplot(dat, aes(x, y)) + 
    geom_violin(fill = NA) + 
    theme_minimal(base_size = 14) + 
    theme(axis.title = element_text(color = NA), 
     axis.text = element_text(color = NA)) 

library(gridExtra) 
grid.arrange(p1, p2, ncol=2, widths = c(4,1)) 

das gibt:

jedoch durch die Legende getrennt, die Linie und Violine Plots werden jetzt. Mit:

library(gtable) 
leg <- gtable_filter(ggplot_gtable(ggplot_build(p1)), "guide-box") 

grid.arrange(p1 + guides(color = FALSE), p2, leg, ncol=3, widths = c(4,1,1)) 

Sie die Legende auf der rechten Seite des Grundstücks wieder platzieren können:

Answer 2

ich es herausgefunden:

ggplot(dat, aes(x, y, group=person)) + geom_line(aes(color=person)) + 
    geom_violin(aes(x=rep(11, nrow(dat)), y=y, group=1)) 

Dinge zu beachten: aes(x=11, y=y) Einstellung in geom_violin() funktioniert nicht, weil (a) x und y müssen die gleiche Länge haben und (b) würden Sie zehn Violinen bekommen.

(a) durch rep() ‚ing die Zahl um einen Vektor von gleicher Länge y und (b) vermieden wird erstellen group = 1 indem (wie durch Procrastinatus Maximus wies darauf hin,‘ vermieden werden Antwort).

Das resultierende Grundstück:

Wenn es eine bessere Lösung für dieses Problem, ich würde es gerne sehen!