从R中的矩阵绘制图像

Question

我需要从矩阵中绘制图像。我有4乘4矩阵onDestroy()。 我试图按照推荐here绘制矩阵中的图像。

mat

更新 结果图像的宽度和高度均为4像素。但我有战争：

mat <- matrix(c(255,255,255,255, 255,255,255,255, 255,255,255,255, 0,0,0,0), nrow = 4, ncol = 4)
png("simpleIm.png", width = nrow(mat) + 1, height = ncol(mat) + 1, units = "px")
par(mar = rep(0, 4))
image(mat, axes = FALSE, col = grey(seq(0, 1, length = 256)))
dev.off()

有没有人可以在没有警告信息的情况下提出如何更正代码的建议？