如何在刻度图像上添加刻度线？

Question

如何在以下RasterImage绘图的x轴和y轴上添加刻度线？图像分辨率为768x512。 x轴的范围应在0到768之间，刻度线的间隔均匀。 y轴应介于0到512之间，刻度线的间距均匀。

library(EBImage)
library(png)
f = system.file("images", "sample-color.png", package="EBImage")
img<-readPNG(f)
plot.new()
plot.window(xlim=c(0, 1), ylim=c(0, 1), asp=NA)
rasterImage(img, 0, 0, 1, 1)

输出：

我尝试使用plot.window(xlim=c(0, ncol(img)), ylim=c(0, nrow(img)), asp=1)手动添加轴。

我也尝试过plot.window(xlim=c(0,1),ylim = (0,1), asp=NA, axes=T)。

Answer 1

以下代码会将轴刻度添加到x和y轴：

axis(side=1, at=seq(0,700,100)/768, labels=seq(0,700,100))
axis(side=2, at=seq(0,500,100)/512, labels=seq(0,500,100), las=1)

要使轴线位于图片的边缘，请使用pos自变量：

axis(side=1, at=seq(0,700,100)/768, labels=seq(0,700,100), pos=0)
axis(side=2, at=seq(0,500,100)/512, labels=seq(0,500,100), las=1, pos=0)