图像绘制功能，纵横比为1，轴为刻度

Question

给定矩阵M的平方，我们如何绘制它以使纵横比为1并且轴正确显示？

我正在寻找：

M <- t(replicate(50,sample(50, replace=TRUE)))
image(1:dim(M)[1], 1:dim(M)[1], M, col= gray((0:32)/32), asp=1)

但随着轴重新缩放以适应图像。

Answer 1

要更改轴上的值，您可以使用axis功能，并在图像功能中添加axes=F或xaxt="n"，以首先抑制轴和/或刻度标签。

image(1:dim(M)[1], 1:dim(M)[1], M, col= gray((0:32)/32), asp=1)
axis(1,1:50,1:50) # add a new x-axis
axis(2,1:50,1:50, pos=0) # add a y-axis with the coordinate zero.