Ich habe mit beiden experimentiertggplot2 undlattice Panels von Daten grafisch darzustellen. Ich habe ein kleines Problem damit, meine Gedanken um das zu wickelnggplot2 Modell. Wie zeichne ich ein Streudiagramm mit zwei Datensätzen in jedem Bereich:

imlattice Ich könnte das machen:

xyplot(Predicted_value + Actual_value ~ x_value | State_CD, data=dd)

und das würde mir ein Panel für jede State_CD mit jeder Spalte geben

Ich kann eine Kolumne mit machenggplot2:

pg <- ggplot(dd, aes(x_value, Predicted_value)) + geom_point(shape = 2) 
      + facet_wrap(~ State_CD) + opts(aspect.ratio = 1)
print(pg)

Was ich nicht fassen kann, ist, wie man Actual_value zum obigen ggplot hinzufügt.

BEARBEITEN Hadley wies darauf hin, dass dies mit einem reproduzierbaren Beispiel wirklich einfacher wäre. Hier ist Code, der zu funktionieren scheint. Gibt es eine bessere oder präzisere Möglichkeit, dies mit ggplot zu tun? Warum unterscheidet sich die Syntax zum Hinzufügen eines weiteren Satzes von Punkten zu ggplot so sehr vom Hinzufügen des ersten Satzes von Daten?

library(lattice)
library(ggplot2)

#make some example data
dd<-data.frame(matrix(rnorm(108),36,3),c(rep("A",24),rep("B",24),rep("C",24)))
colnames(dd) <- c("Predicted_value", "Actual_value", "x_value", "State_CD")

#plot with lattice
xyplot(Predicted_value + Actual_value ~ x_value | State_CD, data=dd)

#plot with ggplot
pg <- ggplot(dd, aes(x_value, Predicted_value)) + geom_point(shape = 2) + facet_wrap(~ State_CD) + opts(aspect.ratio = 1)
print(pg)

pg + geom_point(data=dd,aes(x_value, Actual_value,group=State_CD), colour="green")

Die Gitterausgabe sieht folgendermaßen aus:Alternativtext http://www.cerebralmastication.com/wp-content/uploads/2009/08/lattice.png

und ggplot sieht so aus:Alternativtext http://www.cerebralmastication.com/wp-content/uploads/2009/08/ggplot.png