堆叠平面小提琴 ggplot

Question

我想绘制一个小提琴 ggplot，其中 x 轴是年份，y 轴是值。每年，我都需要三个小提琴图。当我尝试这样做时，y 轴没有堆叠在一起，因此这三个轴的密度没有清楚地显示。每年，我希望它们绘制在相同的 y 轴上，并且填充颜色是透明的，以便所有三个都可以看到。该数据集相当长（很难复制较短的数据集），但它是sum1.14、sum5.14和的三个数据帧sum10.14。

plot.density.tenor <- function(cent_list_sum1,cent_list_sum5,cent_list_sum10,start_year,end_year){
  df1 <- melt(ldply(cent_list_sum1, data.frame))
  df5 <- melt(ldply(cent_list_sum5, data.frame))
  df10 <- melt(ldply(cent_list_sum10, data.frame))
  df <- rbind(df1,df5,df10)
  years <- seq(start_year,end_year)
  df$year <- rep(rep(as.character(seq(start_year,end_year)),each=nrow(df1)/length(years)),3)
  df$tenor <- rep(c("1","5","10"),each=nrow(df1))
  df$tenor <- factor(df$tenor, levels=c("1", "5", "10"))
  ggplot(df, aes(year, value, color = tenor)) + 
    geom_flat_violin() +
    ggtitle("Centrality Measure Distribution") + ylab("Centrality") + xlab("Year") +
    stat_summary(colour="red", size = 0.5)
    #theme(legend.position = "none")
}
plot.density.tenor(sum1.14,sum5.14,sum10.14,2010,2021)

Answer 1

我可以用这个假数据复制类似的东西：

set.seed(42)
fake <- data.frame(year = as.character(rep(2010:2021, each = 30)),
                   tenor = rep(c("1", "5", "10"), times = 120),
                   value = rnorm(360, mean = 0.5))
library(PupillometryR)
library(ggplot2)
ggplot(fake, aes(year, value, color = tenor)) + 
  geom_flat_violin() +
  stat_summary(colour="red", size = 0.5)

我认为我们可以通过下面的代码得到类似您所描述的内容。首先，我们覆盖默认值以使每个图更宽（这可能需要针对不同数据进行调整），然后告诉“dodging”函数在每个连续“tenor”组的基线之间应该插入零空间。

ggplot(fake, aes(year, value, fill = tenor)) + 
  geom_flat_violin(width = 15, 
                   position = position_dodge(width = 0),
                   alpha = 0.5) +
  stat_summary(colour="red", size = 0.5)