R繪制數字矩陣的2D曲面

Question

我目前正在給定一個**數字矩陣，以n * p個正方形繪制一個圖，每個正方形的顏色取決於矩陣中的數字。

矩陣定義如下：

ll <- list(c(1,3,4,3,6,5,8),c(1,1,4,5,7,6,8),c(1,3,1,1,3,4,8),c(2,1,1,2,1,3,5))
mm <- do.call(rbind,ll)

通常，我想為數字組定義顏色。 例如：

• 小組{1,2}黃色
• 小組{3,4,5}的橙色
• 紅色代表數字{6,7,8}

然后“繪制”矩陣。 就像此鏈接上的創輝matplotlib圖片一樣： http : //activeintelligence.org/blog/archive/matplotlib-sparse-matrix-plot/

我真的不知道該怎么做，任何觀點都將不勝感激！

Answer 1

 cc <- mm  # make copy to modify
 cc[] <- findInterval(cc, c(0, 2.5, 5.5, 8.5 ) )  # values 1:3
 cc
image(seq(dim(cc)[1]), seq(dim(cc)[2]), cc, col=c("yellow","orange","red"))

cc -matrix中的值將從顏色向量中提取。

Answer 2

我想這些點的位置由n和p等級定義。 您可以使用ggplot2和reshape2處理此問題。

ll <- list(c(1,3,4,3,6,5,8),c(1,1,4,5,7,6,8),c(1,3,1,1,3,4,8),c(2,1,1,2,1,3,5))
mm <- do.call(rbind,ll)
rownames(mm) = 1:nrow(mm)
colnames(mm) = 1:ncol(mm)

library(reshape2)
library(ggplot2)
mm_long = melt(mm)
colnames(mm_long) = c("x", "y", "group")
mm_long$colour_group = NA
mm_long$colour_group[mm_long$group %in% c(1,2)] = 1
mm_long$colour_group[mm_long$group %in% c(3,4,5)] = 2
mm_long$colour_group[mm_long$group %in% c(6,7,8)] = 3

mm_long$group = factor(mm_long$group)
mm_long$colour_group = factor(mm_long$colour_group)

ggplot(mm_long, aes(x=x, y=y)) +
  geom_point(aes(colour=colour_group), shape=15, size=10) +
  scale_colour_manual(values = c("yellow","orange", "red"))

Answer 3

基本上遵循@MrFlick和@BondedDust的建議：

cols=c(rep("yellow", 2), rep("orange", 3), rep("red", 3))

image(1:ncol(mm), 1:nrow(mm), t(mm), col=cols, breaks=c(0:length(cols))+0.5, xlab="", ylab="")

要么

heatmap(mm, col=cols, breaks=c(0:length(cols))+0.5, Colv=NA, Rowv=NA, scale="none")