Fatal编程技术网
  • r/
  • R 图像强制（表格）打印标签为连续

R 图像强制（表格）打印标签为连续

r

R 图像强制（表格）打印标签为连续,r,r-factor,R,R Factor,使用data（warpbreaks），因为它是一个具有因子的数据集，每个人都有： 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 正如您所看到的，

使用
data（warpbreaks）
，因为它是一个具有
因子的数据集，每个人都有：


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））
不是答案。）
您已经创建了一个矩阵，其中
羊毛
和
张力
的因子级别现在只是您输入到
image
的矩阵的行和列名称。你在找热图吗？例如：


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



基本上，虽然我不需要树状图（实际上我想要一个图例，比如
fields:：image.plot
）<代码>？热图
显示它基本上是图像（t（x））。奇怪…另外，如果你不想要行或列树状图，那么只需将
Rowv=NA
和/或
Colv=NA
添加到调用
heatmap
。我正试图从源代码中找出
heatmap
做了什么
image
没有…看起来像这两行：
image（1L:nc，1L:nr，x，xlim=0.5+c（0，nc），ylim=0.5+c（0，nr），axes=FALSE，xlab=“”，ylab=“”，…）；轴（1，1L:nc，标签=labCol，las=2，直线=-0.5，刻度=0，cex.axis=cexCol）
，强调轴=FALSE。