R fiddle 图和箱线图在一起，使填充仅对箱线图表现不同

Question

好的，所以我想将 fiddle 图与白色箱线图一起绘制，但我的数据有点棘手。我将 data.frame 中的数据与几列融为一体，每一列都有与两个级别的因子相对应的值，这是我的数据的近似值:

library(ggplot2)
library(reshape2)

dat <- list(
  A = rbind(
    data.frame(group = "1",
               vals = rnorm(500)),
    data.frame(group = "2",
               vals = rnorm(100))
  ),
  B = rbind(
    data.frame(group = "1",
               vals = rnorm(500)),
    data.frame(group = "2",
               vals = rnorm(100))
  ),
  C = rbind(
    data.frame(group = "1",
               vals = rnorm(500)),
    data.frame(group = "2",
               vals = rnorm(100))
  )
)

dat.melt <- melt(dat)

我能找到的最好方法是手动设置填充，但它会影响 fiddle 图和箱线图:

dodge <- position_dodge(width = 1)

p <- ggplot(dat.melt, aes(x = L1, y = value, fill = group))+
  geom_violin(position = dodge)+
  geom_boxplot(width = 0.3,
                 position = dodge,
                 outlier.shape = NA)+
  scale_fill_manual(values=c("white", "white"))

我可以只将箱线图设为白色而不将 fiddle 设为白色吗？

附注如何只为 fiddle 制作图例而不显示箱线图？

Answer 1

试试这个:

p <- ggplot(dat.melt, aes(x = L1, y = value)) +
  geom_violin(aes(fill = group), position = dodge) +
  geom_boxplot(aes(group=interaction(group,L1)), 
            width=0.3, fill="white", position=dodge,
            outlier.shape=NA)
print(p)