溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
這篇文章將為大家詳細講解有關R語言畫熱圖時如何實現圖例legend過多超出畫圖邊界，小編覺得挺實用的，因此分享給大家做個參考，希望大家閱讀完這篇文章后可以有所收獲。
示例代碼
test = matrix(rnorm(200), 20, 10)
test[1:10, seq(1, 10, 2)] = test[1:10, seq(1, 10, 2)] + 3
test[11:20, seq(2, 10, 2)] = test[11:20, seq(2, 10, 2)] + 2
test[15:20, seq(2, 10, 2)] = test[15:20, seq(2, 10, 2)] + 4
colnames(test) = paste("Test", 1:10, sep = "")
rownames(test) = paste("Gene", 1:20, sep = "")
annotation_col<-data.frame(group=factor(c(rep("A",5),rep("B",5))))
rownames(annotation_col)<-paste0("Test",1:10)
library(pheatmap)
pheatmap(test,cluster_rows = F,cluster_cols = F,
annotation_col = annotation_col)
但是如果添加多組注釋信息的話，他的圖例是從上到下依次排列，如果太多圖例就會超過繪圖邊界，比如
annotation_col<-data.frame(group=factor(c(rep("A",5),rep("B",5))),
group_1=factor(LETTERS[1:10]),
group_2=factor(letters[1:10]),
group_3=factor(rep(c("CT1","CT2"),5)))
rownames(annotation_col)<-paste0("Test",1:10)
pheatmap(test,cluster_rows = F,cluster_cols = F,
annotation_col = annotation_col)
我有四個圖例需要展示，但是這張圖只出現了3個
當然可以通過增加圖片的高度讓第四個圖例顯示出來
但是如果注釋信息再多也不能夠一直拉長圖片高度呀！
有一個辦法是更改圖例的大小，但是沒有找到參數來調節。
還有一個辦法是：現在圖例的單列，能不能改為多列顯示？也沒有找到參數調節
還有一個辦法是不用這個函數了，換ComplexHeatmap包中的Heatmap函數 示例代碼
mat = matrix(rnorm(100), 10)
rownames(mat) = paste0("R", 1:10)
colnames(mat) = paste0("C", 1:10)
library(ComplexHeatmap)
Heatmap(mat)
column_ha = HeatmapAnnotation(foo1 = runif(10),
foo2=rep(c("A","B"),5),
foo3=rep(letters[1:5],2),
foo4=LETTERS[1:10],
foo5=letters[1:10],
foo6=LETTERS[1:10])
column_ha
Heatmap(mat,top_annotation = column_ha,
cluster_columns = F,
cluster_rows = F)
他的圖例自動就換為兩列了
關于“R語言畫熱圖時如何實現圖例legend過多超出畫圖邊界”這篇文章就分享到這里了，希望以上內容可以對大家有一定的幫助，使各位可以學到更多知識，如果覺得文章不錯，請把它分享出去讓更多的人看到。
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
