ggplot2 stat_summary fun 問題意味着在箱線圖中無法正確繪制

Question

我正在嘗試向箱線圖添加一個平均值，但是側面的平均值圖，我無法弄清楚如何將平均值放在箱線圖本身的中心。 請在下面找到示例代碼。 boxplot 結果抱歉，如果之前有人問過它，但我找不到有關該主題的任何內容。

library(datasets)
library(ggplot2)

airquality$Month <- factor(airquality$Month, labels= c("May", "Jun", "Jul", "Aug", "Sep"))

airquality_trimmed <- airquality[which(airquality$Month == "Jul" | airquality$Month == "Aug" |
                                         airquality$Month == "Sep"), ]
airquality_trimmed$Temp.f <- factor(ifelse(airquality_trimmed$Temp > mean(airquality_trimmed$Temp), 1, 0),
                                    labels = c("Low temp", "High temp"))


BP <- ggplot(airquality_trimmed, aes(x= Month, y= Ozone, fill= Temp.f))+
  geom_boxplot(alpha= 0.7)+
  scale_y_continuous(name= "Mean ozone in\nparts per billion") +
  scale_x_discrete(name= "Month")+
  stat_summary(fun= "mean", geom= "point", colour= "black")+
  theme_bw()+
  scale_fill_brewer(palette = "Accent") +
  labs(fill = "Temperature")
BP

Answer 1

將position = position_dodge(width = 0.75)添加到stat_summary調用中：

ggplot(airquality_trimmed, aes(x= Month, y= Ozone, fill= Temp.f))+
  geom_boxplot(alpha= 0.7)+
  scale_y_continuous(name= "Mean ozone in\nparts per billion") +
  scale_x_discrete(name= "Month")+
  stat_summary(fun= "mean", geom= "point", colour= "black", position = position_dodge(width = 0.75))+
  theme_bw()+
  scale_fill_brewer(palette = "Accent") +
  labs(fill = "Temperature")

^{由reprex package (v0.3.0) 於 2020 年 7 月 8 日創建}