r - 如何使用像素矩阵将多个图像定位在同一个绘图上

Question

我试图使用 Kaggle 数据集在同一图上说明 100 个随机训练示例，您可以在此处找到:https://www.kaggle.com/c/digit-recognizer/data .

我可以一个接一个地绘制数字，但不能在同一个图上绘制:

  par(mfrow=c(5,5))

for(i in sample(2:length(data),100,replace=FALSE)){      
    dat <- matrix(as.numeric(data[i,1:784]/256),ncol=28,nrow=28,byrow=TRUE)
    image(dat, axes=TRUE,col=grey(seq(0,1,length=256)))
}

我想做的是这样的:

我无法弄清楚如何指定每个像素的位置......

谢谢!

Answer 1

一个快速的解决方案是使用 par 将边距 (mar) 设置为 0:

par(mfrow=c(5,5), mar=c(0,0,0,0))

for(i in sample(2:length(data),100,replace=FALSE)){      
    dat <- matrix(as.numeric(data[i,1:784]/256),ncol=28,nrow=28,byrow=TRUE)
    image(dat, axes=FALSE,col=grey(seq(0,1,length=256)))
}

如果您希望边框位于外部，请将 par 中的 oma 设置为值 >0。例如

par(mfrow=c(5,5), mar=c(0,0,0,0), oma=c(2,2,2,2))