r - R plot() 或 ggplot2() 中的对数 y 轴刻度线

Question

我看到了 log="y" 的理想刻度线结构情节在 this paper ，图 3b 3c 3d。

它具有不带标签的短对数间隔小刻度线，以及带有标签的长对数间隔主要刻度线。

有谁知道如何在 R 中实现这一点?

Answer 1

在基础 R 中，只需根据需要构建轴。这样的事情可能是一个开始。

set.seed(5)
d <- data.frame(x=1:100, y=rlnorm(100, meanlog=5, sdlog=3))
with(d, {
  plot(x, y, log="y", yaxt="n")
  y1 <- floor(log10(range(y)))
  pow <- seq(y1[1], y1[2]+1)
  ticksat <- as.vector(sapply(pow, function(p) (1:10)*10^p))
  axis(2, 10^pow)
  axis(2, ticksat, labels=NA, tcl=-0.25, lwd=0, lwd.ticks=1)
})

在 lattice , latticeExtra包具有以下功能:

library(lattice)
library(latticeExtra)
xyplot(y~x, data=d, scales=list(y=list(log=10)),
       yscale.components=yscale.components.log10ticks)