图像强制（表格）标签连续

Question

使用data(warpbreaks)，因为它是一个每个人都拥有factor的数据集：

tapply(warpbreaks[,1], warpbreaks[,2:3], FUN=sum)
#    tension
#wool   L   M   H
#   A 401 216 221
#   B 254 259 169

require(magrittr)
tapply(warpbreaks[,1], warpbreaks[,2:3], FUN=sum) %>% image

正如您所看到的，标签（ 因子）现在已被强制连续。

---

（像image(ylab=levels( warpbreaks$tension ))这样的一些显而易见的小问题不是答案。）

Answer 1

您已经创建了一个矩阵，其中wool和tension的因子级别现在只是您向image提供的矩阵的行名和列名。你在寻找热图吗？例如：

heatmap(tapply(warpbreaks[,1], warpbreaks[,2:3], FUN=sum))