小编use*_*328的帖子

我pheatmap()使用以下代码使用该函数创建热图：

library(pheatmap)
pheatmap((data_matrix[,1:11]), cluster_rows = F, cluster_cols = F, scale="none",
     show_rownames=F, treeheight_row = F, 
     color=colorRampPalette(rev(c("red","white")))(50),
     main="values", cex.main=1.2)

我想在某些位置添加文字和线条以表示组和百分比。

abline()并且text()不工作，过度绘图我到目前为止还没有成功。

最好的方法是什么？

谢谢菲利普

我找到了一个Matlab脚本来生成心形的散点图,但是,我想在R中绘制这个图.

http://scriptdemo.blogspot.co.at/2013/02/show-normal-random-heart.html

有人可以帮我解释或转换代码,以便我可以在R中使用它吗？

菲利普,提前谢谢