如何在R中向生成的热图添加箭头？

我知道如何创建热图，但我想在特定行中感兴趣的基因旁边添加一个箭头。我看到一些有箭头的热图，但我找不到解决方案。 这是我的热图代码和热图。3：

heatmap.3(as.matrix(exprs(df)),keysize = 1, Colv=T,Rowv=F,main = "My heatmap", 
 ColSideColors=Col.matrix,side.height.fraction=0.5,col=my.colors, 
  dendrogram="column", scale="none",  breaks=my.breaks, key=TRUE)

下面是一个如何使用heatmap.3软件包绘制热图的示例

  ## load library
  require("GMD")
  require(cluster)
  ## load data
  data(ruspini)
  ## heatmap on a `dist' object
  x <- gdist(ruspini)
  main <- "Heatmap of Ruspini data"
  dev.new(width=10,height=10)
  heatmap.3(x, main=main) # with a title and a map in square!

这是另一个热图的链接，可以直观地看出我在寻找什么：在热图旁边添加一个箭头如果你查看热图，你可以在热图的y轴旁边找到两个箭头。 来自这篇文章： 厚壁菌：伪装成革兰氏阴性的微生物，doi:10.4056/sigs.2981345

---

提前感谢，

似乎这个答案的一个变体应该有效：。尝试使用xpd=T的箭头：

arrows(x0, y0, x1, y1, xpd=T)

---

你应该提供一个工作示例，例如，一个包含随机数据的矩阵，并包含相关的库调用，以便我们知道heatmap.3的来源。我编辑了我的帖子，并在代码后添加了一个示例。我的主要观点不是如何绘制热图，而是如何在热图中的特定基因条目旁边添加一个箭头，我在几篇出版物中找到了这个箭头。我还添加了我以前看过的一本出版物的链接。