填充热图缺失值

Question

我有一个双变量表，我想从中制作热图。 这是我的代码：

color <- read.table(textConnection("
Green Red 
0 0
0 1
1 1
0 2
0 5
0 1
0 0
0 0"), header = T)

tab <- table(color)
heatmap(tab, Rowv = NA, Colv = NA)

我想填写＆＃34;遗失＆＃34;热图上的值为0，例如水平0,1,2,3,4,5（第3和第4行为0＆＃39;而不是0,1,2,5。

我无法通过操纵生成的紧急表来自动或手动执行此操作（＆＃34; tab＆＃34;）。

Answer 1

我们可以将factor和Green 之前的Red级别设置为构建表格以包含“空”级别。

例如，假设我们要考虑0..5的{​​{1}}和Green的{​​{1}}：

0..2

注意Red现在如何为空级别包含color$Red <- factor(color$Red, levels = as.character(0:5)); color$Green <- factor(color$Green, levels = as.character(0:2)); tab <- table(color); 个条目

tab

由于0默认按比例缩放条目，因此很难看到缺少的级别确实有tab; # Red #Green 0 1 2 3 4 5 # 0 3 2 1 0 0 1 # 1 0 1 0 0 0 0 # 2 0 0 0 0 0 0 heatmap(tab, Rowv = NA, Colv = NA) 个值，所以让我们关闭缩放：

heatmap

此处，红色对应0。