我正在为一些数据制作热力图,并希望在每组样本之间添加一条直线。似乎在热力图上,
abline
的效果不好。有什么函数可以用于此目的吗?add.expr
参数。这里提供的示例可能会有用:这里。x <- as.matrix(mtcars)
rc <- rainbow(nrow(x), start=0, end=.3)
cc <- rainbow(ncol(x), start=0, end=.3)
hv <- heatmap(x, col = cm.colors(256), scale="column",
RowSideColors = rc, ColSideColors = cc, margin=c(5,10),
xlab = "specification variables", ylab= "Car Models",
main = "heatmap(<Mtcars data>, ..., scale = \"column\")",
# IMPORTANT BIT HERE
add.expr = abline(h=5, v=2))