如何使用灰度在R中按原样绘制矩阵？

Question

如何绘制以下矩阵

> a<-matrix(c(-1,0,1,0),nrow=2,ncol=2,byrow=TRUE)
> a
     [,1] [,2]
[1,]   -1    0
[2,]    1    0

原样，即在 2D 中，表示某些调色板中的值，如灰度？

应该得到这样的东西：

同时与

image(a,col=grey(seq(0, 1, length = 256)))

我得到这个：

即矩阵被重新定向和重新缩放。

Answer 1

只需转置 ( t) 你的矩阵

image(t(a),col=grey(seq(0, 1, length = 256)))

如果您希望标签从 1 而不是 0 开始计数，请执行以下操作：（取自此处：r-如何在 image.plot 中编辑 x 轴上的元素）

image(t(a),col=grey(seq(1, 0, length = 256)), axes = F)
axis(1, at=seq(1,nrow(a))-1, labels=seq(1,nrow(a)))
axis(2, at=seq(1,ncol(a))-1, labels=seq(1,ncol(a)))

结果是：