ggtitle - ggplot2: Trazar la media con geom_bar

ggplot title position

Question

Tengo el siguiente marco de datos:

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)))

y estoy trazando los gráficos de barras para cada etiqueta por grupo usando:

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

Sin embargo, parece que no puedo encontrar un stat="mean" para poder trazar las medias en cada gráfico de barras en lugar de la identidad.

Gracias por cualquier ayuda.

Answer 1

Intenta usar ggpubr . Crea gráficos similares a ggplot2.

library(ggpubr)
ggbarplot(test2, x = "label", y = "X2",
add = "mean", fill = "groups")

Alternativamente, agregue una faceta:

ggbarplot(test2, x = "label", y = "X2",
add = "mean", fill = "groups",
facet.by = "groups")

Answer 2

simplemente use stat = "summary" y fun.y = "mean"

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

Answer 3

ggplot2 le gusta 1 punto de datos por 1 punto de trazado. Cree un nuevo marco de datos con sus estadísticas de resumen, luego trace con 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")