Это код внутри heatmap.2, который создает аннотацию (главной) оси:
axis(1, 1:nc, labels = labCol, las = 2, line = -0.5, tick = 0,
cex.axis = cexCol)
if (!is.null(xlab))
mtext(xlab, side = 1, line = margins[1] - 1.25)
axis(4, iy, labels = labRow, las = 2, line = -0.5, tick = 0,
cex.axis = cexRow)
if (!is.null(ylab))
mtext(ylab, side = 4, line = margins[2] - 1.25)
Как только вы решите, что вы хотите, то взлом этого кода даст вам конкретный результат. Если вы хотите переписать всю функцию, то ..... нанимайте консультанта