将 y 轴缩放为 R 中的 10 次幂值

Question

我试图在 y 轴上只获得 10 次幂，并且我尝试了 StackOverflow 上提供的许多方法，但都没有产生我想要的。

我想定义 y 轴的比例从 10^2 开始，然后下一个刻度是 10^4，然后是 10^6。

我已经尝试过xaxt和at和axis以及这里提到的所有内容，但没有一个适用于 10^x..

Answer 1

plot.default()函数提供了一个log参数，可用于轻松获取 x 轴、y 轴或两者的对数刻度。 例如：

x <- 2:6;
y <- 10^x;
plot(x,y,log='y');

如果要控制 y 轴刻度，可以覆盖默认轴并以正常方式绘制自己的轴：

## generate data
x <- 2:6;
y <- 10^x;

## precompute plot parameters
xlim <- c(2,6);
ylim <- c(10^2,10^6);
xticks <- 2:6;
yticks <- 10^seq(2L,6L,2L);

## draw plot
plot(NA,xlim=xlim,ylim=ylim,log='y',axes=F,xaxs='i',yaxs='i',xlab='x',ylab='y');
abline(v=xticks,col='lightgrey');
abline(h=yticks,col='lightgrey');
axis(1L,xticks,cex.axis=0.7);
axis(2L,yticks,sprintf('10^%d',as.integer(log10(yticks))),las=2L,cex.axis=0.7);
##axis(2L,yticks,sprintf('%.0e',yticks),las=2L,cex.axis=0.7); ## alternative
points(x,y,pch=19L,col='red',xpd=NA);

Answer 2

axis()工作：

x <- 2:6
y <- 10 ^ x
plot(x, y, yaxt = "n")
axis(2, at = 10^(c(2, 4, 6)))

唯一的问题是，这当然不是一个好的演示方式。 你知道1e+n增长有多快吗？？ 正如您在图中已经看到的，1e+2 和 1e+4 的刻度几乎重合，因为 1e+6 太大了。 如果您的数据范围从1 ~ 1e+8甚至更大，那么您最好在对数刻度上绘制它们。

plot(x, log10(y), yaxt = "n")
axis(2, at = c(2,4,6))