library(reshape2)
library(ggplot2)
library(ggridges)
xqt <- read.csv("TE1.csv",header = T) #导入数据
data1=melt(xqt) #宽数据变成长数据
head(data1)
tail(data1)
ggplot(data1, aes(x = data1$value, y = data1$variable, fill = ..density..)) + #这里y为样品,x为value
geom_density_ridges_gradient(scale = 3, rel_min_height = 0.00,size = 0.3) + #不用改
scale_fill_gradient2(low="Aquamarine",mid="LightGoldenrod1",high = "HotPink",midpoint = 1.0)+theme_bw()+xlim(0,+2.0) #手动配色
scale_fill_gradientn(colours = colorRampPalette(rev(brewer.pal(11,'Spectral')))(32))+theme_test() #自动配色（可选）
峰峦图
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
