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")