叠层扁平小提琴格图
叠层扁平小提琴格图
提问于 2022-05-19 19:16:22
我想画一个小提琴三角图，其中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)
回答 1
Stack Overflow用户
回答已采纳
发布于 2022-05-19 19:37:38
我可以用这些假数据复制类似的东西：
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)
我认为我们可以得到类似于下面代码所描述的内容。首先，我们覆盖默认设置以使每个地块变宽(这可能需要针对不同的数据进行调整)，然后告诉“躲闪”函数，在每个连续的“男高音”组的基线之间插入零空间。
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)
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/72310006
复制相关文章
相似问题
腾讯云开发者
