如何逆转热图中行图例的颜色？

Question

我想逆转行的默认注释：

library(NMF) #any other packages for this task are welcome
car<-cars
car$p<-sample(1:600, 50)*0.0001
aheatmap(as.matrix(cars[,1:2,drop=FALSE]),annRow =car[,"p",drop=FALSE])

​

​

正如您在行注释中所看到的，0代表白色，而更大的数字代表更深的绿色。我希望看到越小的p，越深的绿色(或灰色)。

此外，如果可能的话，大于0.05的p只会呈现白色。

这对我来说真的很有挑战性。谢谢您的帮助或意见。

Answer 1

可以使用annColors参数更改颜色。这改变了绿色-白色的顺序：

aheatmap(as.matrix(cars[,1:2,drop=FALSE]),annRow =car[,"p",drop=FALSE], annColors="-Greens")

要使p=.05白色之上的任何内容，您可以子集您的数据，使任何值以上的NA，并执行相同的着色：

car$p[car$p>.05]<-NA
aheatmap(as.matrix(cars[,1:2,drop=FALSE]),annRow =car[,"p",drop=FALSE], annColors="-Greens")

​

​