R图像轴标签和刻度

Question

我正在尝试向图像添加 x 轴标签，但无法理解为什么我无法添加标签。我在下面写了这段代码，运行后看不到任何轴标签。

    data = matrix(c(0,1), nrow = 500, ncol = 383)
    w<-dim(data)[1]*2;
    h<-dim(data)[2]*2;
    my_palette <- gray.colors(256,start=0,end=1,rev=TRUE);
    tiff(file="data_1.tiff",width=w,height=h,units="px");
    par(mar=c(10,10,10,10));
    image(data, xaxt= "n", yaxt= "n", bty="n", col=my_palette,useRaster=TRUE);
    axis(side=1,at=seq(0,500,by=10)[2:51],labels=TRUE)
    dev.off()

此外，当我删除 at=seq(0,500,by=10)[2:51] 时，会出现一个 x 轴，但只停留在 0 和 1 之间。

    data = matrix(c(0,1), nrow = 500, ncol = 383)
    w<-dim(data)[1]*2;
    h<-dim(data)[2]*2;
    my_palette <- gray.colors(256,start=0,end=1,rev=TRUE);
    tiff(file="data_2.tiff",width=w,height=h,units="px");
    par(mar=c(10,10,10,10));
    image(data, xaxt= "n", yaxt= "n", bty="n", col=my_palette,useRaster=TRUE);
    axis(side=1,labels=TRUE)
    dev.off()

请帮助我理解为什么我不能像迄今为止看到的 R 中的其他示例一样，向这些数据添加自己的标签和刻度。任何帮助表示赞赏，如果有办法将我自己的刻度和标签添加到这样的图像或任何其他图像，请指导我。

Answer 1

由于某种原因，x轴被限制在(0,1)；当我尝试时很明显，

axis(side=1,at=seq(0,1,by=.02)[2:51],labels=T,xpd=NA)

我明白了

因此，一种解决方法可能是在 (0,1) 之间创建刻度，但将它们标记为 (0,500)

axis(side=1,at=seq(0,1,by=.02)[2:51],labels=seq(0,500,by=10)[2:51],xpd=NA) 给了