ggplot wielokrotny pasek grupowania

Question

Chciałbym wiedzieć, jak uzyskać 9 grupowania wykres słupkowy (3x3) togheter.

plików CSV: data <- read.csv("http://pastebin.com/raw.php?i=6pArn8GL", sep = ";")

W 9 poletka być Groupes według „Typ” A do I.

Następnie każdy pasek zgrupowane wykres powinien częstotliwości na osi y, oś x jest pogrupowane 1 szt. Do 6 szt. I subdivedowane przez rok.

Mam następujący przykład w programie Excel (patrz zdjęcie) i chciałbym utworzyć ten sam wynik na r z ggplot. Czy to możliwe?

Dzięki

Answer 1

pierwsze, przekształcenia danych z szerokim i długim formacie.

library(reshape2) 
df.long<-melt(df,id.vars=c("ID","Type","Annee")) 

Następnie, jak podczas importowania list danych X jest dodawany do nazw zmiennych zaczynające się od numeru, należy go usunąć z substring().

df.long$variable<-substring(df.long$variable,2) 

Teraz użyj variable jako X, Y, value jako Annee do wypełnienia i geom_bar() dostać barplot. Dzięki facet_wrap() możesz podzielić dane według Type.

ggplot(df.long,aes(variable,value,fill=as.factor(Annee)))+ 
    geom_bar(position="dodge",stat="identity")+ 
    facet_wrap(~Type,nrow=3) 

Answer 2

Korzystanie @Didzis przekształcone dane, tu wersja kraty:

barchart(value~variable|Type, 
     groups=Annee,data=df.long,layout=c(3,3), 
     between=list(3,3), 
     axis=axis.grid, 
     auto.key=TRUE)