Facettierte gruppierte Boxplot r mit oder ohne ggplot2

Question

Ich habe eine Reihe von Experimenten über 10 Phasen oder Monaten durchgeführt. Ich züchte Bakterien von 3 verschiedenen TYPEN und zähle das Wachstum (ACC).

Ich versuche eine facet_wrap gruppierte Boxplot des Wachstums über verschiedene Phasen für die drei Bakterienarten (A, E und H) zu bekommen. Meine Daten:

head(EAH) 
    ACC sample site bed phase X.M.SA TYPE 
1 SG  A 1 0  1  NO E 
2 SG  A 2 0  1  NO A 
3 MG  A 3 0  1  NO H 
4 SG  A 4 0  1  NO A 
5 LG  A 1 0  2  NO E 
6 LG  A 2 0  2  NO H 

Einige repräsentative Daten, die aus irgendeinem Grund nicht funktioniert:

EAH<- data.frame(ACC=factor(sample(1:5,10,replace=T), label=c("NG","SG","LG","MG","GH")), 
       Phase=factor(seq(1,10,1)), 
       TYPE=factor(sample(1:3,10,replace=T), label=c("A","E","S"),replace=T)) 

ich ggplot2 bin versucht, obwohl, wenn es ohne das ok ist auch getan werden kann.

ggplot(EAH, aes(x=as.factor(EAH$phase), y=EAH$ACC, group=EAH$TYPE)) + 
    geom_boxplot(aes(fill=factor(EAH$TYPE)))+ facet_grid(. ~ as.factor(EAH$phase)) 

Hier ist, was ich bisher geschafft haben, aber es Facette nicht bekommen kann:

So etwas wie die dritte Graph nach unten auf diesen Beitrag gut aussieht: ggplot: arranging boxplots of multiple y-variables for each group of a continuous x

EDIT

New Code ist in der Nähe, aber ich habe um ACC in numerisch zu ändern. Kann ich die Etiketten als NG, SG, LG, MG, HG auf der Y-Achse zurückbekommen?

ggplot(EAH, aes(x=TYPE, y=as.numeric(ACC))) + 
    geom_boxplot(aes(fill=TYPE))+ facet_grid(. ~ phase) 

Schlusscode:

library(RColorBrewer) 
library(ggplot2) 
ggplot(EAH, aes(x=TYPE, y=as.numeric(ACC))) + 
    geom_boxplot(aes(fill=TYPE))+ 
    facet_grid(. ~ phase) + 
labs(x = "Phase", y = "Growth",color="Type")+ 
scale_fill_brewer(palette="Blues")+ 
theme_bw()+ 
theme(strip.background=element_rect(fill="black"))+ 
theme(strip.text=element_text(color="white", face="bold"))+ 
scale_y_discrete(breaks=c("1", "2", "3","4","5"), 
        labels=c("NG", "SG", "LG","MG","HG")) 

und Ergebnis:

Answer 1

ggplot2 Nicht-Standard-Auswertung verwendet. Es sucht nach Variablen im data.frame, die an den Parameter data übergeben werden. So können Sie das einfach tun:

ggplot(EAH, aes(x=Phase, y=ACC)) + 
    geom_boxplot(aes(fill=TYPE))+ facet_grid(. ~ Phase) 

Und natürlich ist R Groß-und Kleinschreibung.