縱橫比爲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.