R语言绘图数据可视化Ridgelineplot山脊图画法

data<-read.csv(“your file path”, header = T)
#注释：header=T表示数据中的第一行是列名，如果没有列名就用header=F

library(reshape2)
library(ggplot2)
library(ggridges)                      
# 注释：package使用之前需要调用
# 今天要用到geom_density_ridges()函数需要调用ggridges包
# 直接用install.packages(ggridges)可以安装

ggplot(data_melt, aes(x = value , y = variable , fill = variable)) +
 geom_density_ridges() +
 theme_ridges() +
 theme(legend.position = "none")

ggplot(data_melt, aes(x = value , y = variable , fill = variable)) +
 geom_density_ridges(alpha = 0.5) +
 theme_ridges() +
theme(legend.position = "none")

level<-levels(data_melt$variable)
data_melt$variable<-factor(data_melt$variable, levels = rev(level))
ggplot(data_melt, aes(x = value , y = variable , fill = variable)) +
 geom_density_ridges(alpha = 0.5) +
 theme_ridges() +
 theme(legend.position = "none")

ggplot(data_melt, aes(x = value , y = variable , fill = variable)) +
 geom_density_ridges(alpha = 0.5, stat="binline", bins=20) +
 theme_ridges() +
 theme(legend.position = "none")