добавление информации в pheatmap

У меня есть эти данные

line_tab<-                

    elements   scaffold  start    end Lengths        A           B        C        D                      E                     F                 G                  
  BovB_1297  KQ417326.1    763   2186    1423 0.1565491 0.02291220 1.9857781  1.4346243          2.81754891            1.23339700         1.0394839
  BovB_3317  KQ416600.1 660334 661626    1292 0.0000000 0.02523534 0.0000000  0.1934799          0.11710299            0.06318396         0.0000000
  BovB_5130  KQ418760.1 327212 328873    1661 0.0000000 0.00000000 0.0265819  0.0000000          0.02277198            0.03686048         0.0000000
  BovB_6215  KQ417629.1 339534 340586    1052 0.0000000 0.00000000 0.8394018  1.2277020          0.43145549            0.34919346         0.2685752
  BovB_9578  KQ420742.1 157232 158657    1425 0.0000000 0.00000000 0.0000000  0.0000000          0.02654334            1.00251877         0.0000000
  BovB_9976  KQ423592.1  30989  32425    1436 0.0000000 0.02270478 0.4612034  0.3191430          0.13170009            0.24160383         0.1388863

затем я создал тепловую карту, используя pheatmap, с этим кодом

  pheatmap(log10(line_tab+1), color = col.pal.red, 
           fontsize = 8, cluster_cols = FALSE, cluster_rows= FALSE, cellwidth = 15, cellheight = 5, 
           fontsize_row = 5, main = "LINEs length")

но я хотел бы добавить больше информации в свою тепловую карту. Я пытаюсь добавить легенду, расположенную рядом с каждой строкой, в которой отображается столбец «Длина» для каждого «элемента». не могли бы вы подсказать мне, как это сделать?


r heatmap pheatmap
person jonny jeep    schedule 03.07.2019    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Если я правильно понял, вы хотите добавить метки к каждой строке тепловой карты. Затем вы можете использовать аргумент labels_row из pheatmap():

library(pheatmap)
library(RColorBrewer)

pheatmap(log10(line_tab[, -(1:2)] + 1), 
    color = colorRampPalette(rev(brewer.pal(n = 7, name ="Oranges")))(100),
    fontsize = 8, cluster_cols = FALSE, cluster_rows= FALSE, 
    cellwidth = 15, cellheight = 5, 
    fontsize_row = 5, main = "LINEs length",
    labels_row = line_tab$Lengths, 
    filename = "heat_map.png", heigh = 1.75, width = 2.8)

введите здесь описание изображения

Дайте мне знать, нужно ли вам это получить.

Обратите внимание, что pheatmap(log10(line_tab+1),...) не будет работать, потому что pheatmap() требует числовой матрицы. Поэтому мне пришлось исключить первые два столбца.

person Ekatef    schedule 03.07.2019