峰巒圖

library(reshape2)
library(ggplot2)
library(ggridges)
xqt <- read.csv("TE1.csv",header = T) #導(dǎo)入數(shù)據(jù)
data1=melt(xqt) #寬數(shù)據(jù)變成長(zhǎng)數(shù)據(jù)
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) #手動(dòng)配色
  
  scale_fill_gradientn(colours = colorRampPalette(rev(brewer.pal(11,'Spectral')))(32))+theme_test() #自動(dòng)配色（可選）
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時(shí)請(qǐng)結(jié)合常識(shí)與多方信息審慎甄別。
平臺(tái)聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點(diǎn)，簡(jiǎn)書系信息發(fā)布平臺(tái)，僅提供信息存儲(chǔ)服務(wù)。

友情鏈接更多精彩內(nèi)容