r - 如何将 geom_sina 中的所有点拟合到 geom_violin 创建的密度中？

Question

我希望绘制的点geom_sina与分布形状匹配geom_violin。

我已经调整了scaleandmethod选项，但我最接近的是：

ggplot() + 
          geom_sina(aes(factor(AC_group), y=g_AD, color=factor(AC_group)), alpha=0.4, scale=F, method="counts") + 
          geom_violin(aes(factor(AC_group), y=g_AD), alpha=0.4) 

Answer 1

首先设置method = density. 这将或多或少地以与小提琴图相同的方式缩放它。然后设置maxwidth参数，使生成的点geom_sina落在小提琴图中。这可能会根据您的特定数据而有所不同。以下是 iris 数据集的示例：

g <- ggplot(iris) + 
  ggforce::geom_sina(aes(x=Species, y=Sepal.Length, color=Species), alpha=0.4, scale=F, 
                     method="density", 
                     maxwidth = .6) + 
  geom_violin(aes(x=Species, y=Sepal.Length), alpha=0.4) 
g

产生：