R 在heatmaps.plus中显示行边颜色的图例

我正在使用heatmaps.plus创建带有行边颜色的热图。我似乎唯一搞不懂的是如何为RowSideColors创建图例（例如，绿色是Group1，黑色是Group2）。任何帮助都将不胜感激，谢谢

对此，您应该使用

图例

library("heatmap.plus")

#Create dummy data
data <- replicate(10, rnorm(10)) 
rsc <- c("green", "green", "black", "green", "green", "black", "black", "green", "green", "black")
rsc <- cbind(rsc, rsc)
colnames(rsc) <- c("Groups", "")

#Plot
heatmap.plus(data, RowSideCol = rsc)

#Legend on position (40, 2)
legend(40, 2,legend=c("Title","","Group1","Group2"), fill=c("white", "white", "green","black"), border=FALSE, bty="n", y.intersp = 0.7, cex=0.7)

library（“heatmap.plus”）
#创建虚拟数据
数据对此，您应该使用
图例

library("heatmap.plus")

#Create dummy data
data <- replicate(10, rnorm(10)) 
rsc <- c("green", "green", "black", "green", "green", "black", "black", "green", "green", "black")
rsc <- cbind(rsc, rsc)
colnames(rsc) <- c("Groups", "")

#Plot
heatmap.plus(data, RowSideCol = rsc)

#Legend on position (40, 2)
legend(40, 2,legend=c("Title","","Group1","Group2"), fill=c("white", "white", "green","black"), border=FALSE, bty="n", y.intersp = 0.7, cex=0.7)

library（“heatmap.plus”）
#创建虚拟数据
请为我们提供一个复制示例（）。请为我们提供一个复制示例（）。