r - 如何以 log2(n+1) 格式重新缩放 x 轴上的标签？

Question

我想以格式格式化我的 x 轴，log2(n+1)以便 x 轴标签对应于 1、2、4、16 等。

输入：

x <- c(1, 2, 3, 11, 15)
y <- c(1.1, 1.2, .4, 2.1, 1.5)

plot(log2(x + 1), y, axes=FALSE)
axis(1, at=(labels=as.character(formatC(x))), cex.axis=0.9)

但是我得到的情节仍然具有原始的 x 轴值。

如何使我的 x 轴幂为 2（1、2、4、16 等）？

Answer 1

我想这就是你想要的。

x<-c(1,2,3,11,15) 
y<-c(1.1,1.2,.4,2.1,1.5)
lab<-c(1,2,4,16)
plot(log2(x+1),y,xaxt="n",xlab="x")
axis(1,at=log2(lab+1),labels=lab)

计算等距标签也可能很有用：

lab<-round(2^seq(min(log2(x+1)),max(log2(x+1)),length.out=4)-1)