在 ggplot boxplot 的填充组中显示单独的方法

Question

我有一个使用 3 类数据的分组箱线图。一个类别设置为箱线图的 x 轴，另一个设置为填充，最后一个类别设置为分面类别。我想显示每个填充组的均值，但使用 stat_summary 只给我 x 轴类别的均值，而不分离填充的均值：

这是当前代码：

demoplot<-ggplot(demo,aes(x=variable,y=value))
demoplot+geom_boxplot(aes(fill=category2),position=position_dodge(.9))+
stat_summary(fun.y=mean, colour="black", geom="point", shape=18, size=4,) +
facet_wrap(~category1)

有什么方法可以显示每个类别 2 的平均值而无需手动计算和绘制点？调整位置闪避并没有真正帮助，因为它只是一个计算平均值。在 mean() 函数中创建条件是否可取？

For anyone interested, here's the data:

非常感谢您对此的任何启发。

Answer 1

Ggplot 需要在此处提供关于分组的明确信息。您可以通过在所需层中使用 aes(group=....) 或将 fill=... 移动到对 ggplot 的主调用来实现。如果没有对图层进行显式分组，ggplot 将按 x 轴上的因子进行分组。这是一些带有假数据的示例代码：

library(ggplot2)
set.seed(123)

nobs <- 1000
dat <- data.frame(var1=sample(LETTERS[1:3],nobs, T),
                  var2=sample(LETTERS[1:2],nobs,T),
                  var3=sample(LETTERS[1:3],nobs,T),
                  y=rnorm(nobs))

p1 <- ggplot(dat, aes(x=var1, y=y)) +
  geom_boxplot(aes(fill=var2), position=position_dodge(.9)) +
  facet_wrap(~var3) +
  stat_summary(fun.y=mean, geom="point", aes(group=var2), position=position_dodge(.9), 
               color="black", size=4)

在 ggplot boxplot 的填充组中显示单独的方法

Displaying separate means within fill groups in ggplot boxplot

plot

r

ggplot2

boxplot