Ich habe einen fast-boxplot wie Jitter-Plot:hinzufügen Untergruppe Etikett zu einem Jitter Grundstück in ggplot2
dt <- rbind(se,cb,cb.se)
qplot(ds, size, data=dt, geom="jitter", colour=root, facets = test ~ .)
plot http://i50.tinypic.com/1zbfjih.png
Ich würde gerne eine Zusammenfassung Etikett für jede Gruppe in der Mitte platzieren die Handlung - hier zum Beispiel beträgt die Größe:
aggregate(list(size=dt$size), list(dt$ds, dt$test), sum)
Group.1 Group.2 size
1 b217 se 9847
2 c10 se 97296
3 c613 se 21633
4 c7 se 207540
...
ich habe versucht + geom_text(aes(x=ds, y=128, label=sum(size)), size=2)
mit Etikett hinzuzufügen, aber ich habe das gleiche Etikett auf jede Position - wie kann ich die Summe bekommen nur dieser Teil der Daten?
Edit: Hier ist, wo ich jetzt bin - ich erhalte ein undefined columns selected
Fehler ... irgendwo - vielleicht
data <- rbind(se,cb,cb.se)
labels <-ddply(data, c("ds", "test"), function(df) sum(df$size))
ggplot(data=data, aes(x=ds)) +
geom_jitter(aes(y=size, colour=root)) +
geom_text(data=labels, aes(x=ds, y=600, label=V1), size=3) +
facet_wrap(test ~ .)
Dieser Code funktioniert nicht Ich bin nur in der falschen Richtung . Vielleicht liegt es an den mehreren data=
Sektionen?
Von einem schnellen lesen zu schaffen, dass Code sieht für mich in Ordnung. Ohne ein reproduzierbares Beispiel ist es schwer, mehr zu sagen. – hadley
Ich habe eine Lösung gepostet. Da Sie keine Beispieldaten bereitgestellt haben, musste ich leider Zufallsdaten neu erstellen. Dies bedeutet, dass die Lösung möglicherweise Ihre eigenen Daten widerspiegelt. Zukünftig werden Sie mehr Antworten erhalten, wenn Sie ein minimales Beispiel Ihres Problems machen und einige Beispieldaten einfügen, die wir alle verwenden können, um Ihr Problem zu reproduzieren. Wie auch immer, ich hoffe es hilft. – Andrie