как настроить положение цветных легенд в тепловой карте.2

Я пытаюсь выполнить беспристрастную иерархическую кластеризацию со следующим кодом

col.cell <- c("purple","orange", "green", "blue")[sampleinf$subtype]
heatmap.2(as.matrix(hm3),col=rev(morecols(50)),trace="none", main="Top 500 most variable genes across samples",ColSideColors=col.cell,scale="row")  
    legend("topright",      
    legend = unique(sampleinf$subtype),
    col = col.cell,     
    lty= 1.5,   lwd = 2,           
    cex=.6)

Как я могу сделать легенду цвета более заметной. Теперь его наложение на дендрограмму.

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


person beginner    schedule 24.05.2017    source источник


Ответы (1)


Чтобы построить график за пределами диапазона от 0 до 1, вам нужно использовать par(xpd=TRUE)

 legend(x = #,y= #, xpd = TRUE, legend("topright",      
    legend = unique(sampleinf$subtype),
    col = col.cell,     
    lty= 1.5,   lwd = 2,           
    cex=.6)
person Kryo    schedule 24.05.2017