文字最少的一篇哈哈哈，都是代码！
就创建示例数据→画图→拼图，完辽!
data <- data.frame(
Group = rep(c("Group A", "Group B"), each = 100),
Value = c(rnorm(100, mean = 10, sd = 2), rnorm(100, mean = 8, sd = 3))
)
library(ggplot2)
p1 <- ggplot(data, aes(x = Value, fill = Group)) +
geom_density(alpha = 0.5) +
labs(x = "Value", y = "Density") +
theme_minimal()
library(ggpubr)
p2 <- ggplot(data, aes(x = Group, y = Value, fill = Group)) +
geom_boxplot(alpha = 0.5) +
stat_compare_means(label.y = 0)+ #位置换数据要调
labs(x = "Group", y = "Value") +
theme_minimal()+
theme(legend.position = "none")+
coord_flip()
library(patchwork)
p1/p2 +
plot_layout(heights = c(2,1),guides = "collect")&
scale_fill_brewer(palette = "Set1")
