Цвет аннотации Pheatmap редактировать размер - PullRequest
0 голосов
/ 06 сентября 2018

Pheatmap library(pheatmap) принимает annotation_colors для добавления цветов идентификатора заголовка в верхней части каждого столбца тепловой карты.

Я хочу контролировать и редактировать размер заголовка столбца (прямоугольники красный и синий).

Вот что я сделал до сих пор.

library(pheatmap)   
set.seed(123)
df<-data.frame( matrix(sample(30), ncol = 5))
colnames(df)<-LETTERS[1:5]
subj<-c("P1", "P2","P3", "T1", "T2","T3")
rownames(df)<-subj
aka2 = data.frame(ID = factor(rep(c("Pat","Trea"), each=3)))
rownames(aka2)<-subj
aka3 = list(ID = c(Pat = "red", Trea="blue"))
pheatmap(t(scale(df)),
         annotation_col = aka2, 
         annotation_colors = aka3[1],
         annotation_legend = FALSE,
         gaps_col =  3,
         show_colnames = T, show_rownames = T, cluster_rows = F, 
         cluster_cols = F, legend = TRUE, 
         clustering_distance_rows = "euclidean", border_color = FALSE)
...