r - 热图.2 : add row/column labels on left/top without hard coding coordinates

Question

我正在尝试使用 heatmap.2 重新创建热图，类似于此 (1) :



我可以将“A C G T”标签添加到底部列和右行标签。我正在尝试将“组”名称添加到顶部和左侧轴(“1012T3”等和“G>A”等)。

我试过通过 add.expr 这样做功能，但这会覆盖热图顶部的文本，并在我尝试将其移动到热图左侧时消失。

我已经能够通过像这样对坐标进行硬编码来添加它 (2) :

pos1 <- structure(list(x = c(0.222, 0.861), 
                   y = 0.993),
              .Names = c("x", "y"))

text(x=seq(pos1$x[1], pos1$x[2], len=6), y=rep(pos1$y[1],6)  ,
 srt=0, xpd=TRUE, adj = 0,
 labels=c('C>A', 'C>G', 'C>T', 'T>A', 'T>C', 'T>G') )

虽然它有效，但我对不得不硬编码坐标的有点hacky的解决方案不太满意。有没有人有解决方案可以在不硬编码坐标的情况下将行/列标签添加到左侧/顶部？

谢谢!

Answer 1

我发现的“ñapa”是通过使用参数 offsetRow。

即:heatmap.2(数据帧，offsetRow=-36)。带有负数的 offsetRow 将标签向左移动。