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) 给出

R图像轴标签和刻度

R image axis labels and ticks

r

image

axis-labels