ggplot2: Działka na myśli geom_bar

Question

Mam następujący ramka danych:

test2 <- data.frame(groups = c(rep("group1",4), rep("group2",4)), 
    X2 = c(rnorm(4), rnorm(4)) , 
    label = c(rep(1,2),rep(2,2),rep(1,2),rep(2,2))) 

i jestem kreślenia wykresów słupkowych na każdej etykiecie jednej grupie stosującej:

ggplot(test2, aes(label, X2, fill=as.factor(groups))) + 
    geom_bar(position="dodge", stat="identity") 

jednak , Nie jestem w stanie znaleźć stat="mean", więc mogę wykreślić środki na każdym wykresie słupkowym zamiast tożsamości.

Dzięki za pomoc.

Answer 1

prostu użyć stat = "summary" i fun.y = "mean"

ggplot(test2) + 
    geom_bar(aes(label, X2, fill = as.factor(groups)), 
      position = "dodge", stat = "summary", fun.y = "mean") 

Answer 2

lubi 1 punkt danych dla 1 punktu wykresu. Utwórz nową ramkę danych ze statystyk podsumowujących, a następnie wykreślić z stat="identity"

require(reshape2) 
plot.data <- melt(tapply(test2$X2, test2$groups,mean), varnames="group", value.name="mean") 

ggplot(plot.data, aes(x=group,y=mean)) + geom_bar(position="dodge", stat="identity")