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) 但 label 之間創建刻度 (0,500)

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