使用 geom_violin 分层小提琴图以比较分布

问题描述

我正在尝试使用小提琴图比较跨组的连续变量的分布。挺容易。但是，我想通过在背景中以低 alpha 值显示灰色组（参考）的分布来更轻松地比较分布。像这样的东西，但有一个小提琴情节：

我目前的方法将数据绘制了两次。对于第一个 geom_violin，我复制参考组的数据并将其绘制为灰色。对于第二个 geom_violin，我使用实际数据 d。在此示例中，灰色和蓝色的两个小提琴图对于“蓝色”组应该看起来相同。然而，它们并不相同，即使它们基于“蓝色”组的完全相同的数据。

我该如何解决这个问题？或者还有其他更好的方法来做到这一点吗？

d <- tibble(
        group = sample(c("green","blue"),1000,replace = TRUE,prob = c(0.7,0.3)),x = ifelse(group == "green",rnorm(1000,1,1),3))
    )

dblue <- filter(d,group == "blue")
dblue <- bind_rows(dblue,mutate(dblue,group = "green"))

ggplot(d,aes(x = factor(group),y = x)) +
    geom_violin(data = dblue,fill = alpha("#333333",0.2),color = alpha("#333333",0)) +
    geom_violin(fill = alpha("#0072B2",0.8),color = alpha("#0072B2",0))

解决方法

将 scale = "width" 添加到第二个 geom_violin

ggplot(d,aes(x = factor(group),y = x)) +
  geom_violin(data = dblue,fill = alpha("#333333",0.2),color = alpha("#333333",0)) +
  geom_violin(fill = alpha("#0072B2",0.8),color = alpha("#0072B2",0),scale = "width")