stat_summary 有趣的 ggplot2 问题意味着不能在箱线图中正确绘制

Question

我正在尝试向箱线图添加均值，但均值图在旁边，我不知道如何将均值放在箱线图本身的中心。请在下面找到示例代码。boxplot result 很抱歉，如果之前有人问过，但我找不到关于该主题的任何内容。

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-07-08 创建

stat_summary 有趣的 ggplot2 问题意味着不能在箱线图中正确绘制

ggplot2 Issue with stat_summary fun mean not plotting correctly within boxplot

r

ggplot2

boxplot