ggplot2 : 用 geom_bar 繪制均值

Question

我有以下數據框：

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

我正在使用以下方法繪制每組每個標簽的條形圖：

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

但是，我似乎無法找到stat="mean"以便我可以在每個條形圖上繪制均值而不是標識。

謝謝你的幫助。

Answer 1

只需使用stat = "summary"和fun.y = "mean"

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

Answer 2

ggplot2喜歡 1 個數據點為 1 個繪圖點。 使用匯總統計數據創建一個新數據框，然后使用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")

Answer 3

嘗試使用ggpubr 。 它創建類似 ggplot2 的圖表。

library(ggpubr)

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

或者，添加一個方面：

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