如何在 ggplot2 中获得反向的 log10 比例？

Question

我想使用 ggplot2 绘制一个反向的 log10 x 比例图：

require(ggplot2)
df <- data.frame(x=1:10, y=runif(10))
p <- ggplot(data=df, aes(x=x, y=y)) + geom_point() 

但是，我似乎可以要么 log10 比例或 反向比例：

p + scale_x_reverse() + scale_x_log10() 

p + scale_x_reverse()

我想这是合乎逻辑的，如果一个层只能有一个比例。当然，我可以通过自己对数据框进行日志转换来破解它，df$xLog <- log10(df$x) 但这种解决方案似乎与 ggplot 的精神背道而驰。有没有办法在不进行 ggplot 调用外部数据转换的情况下获得这种绘图？

Answer 1

@joran 在他的评论中给出的链接给出了正确的想法（构建你自己的转换），但是对于ggplot2 现在使用的新的scales 包来说已经过时了。查看 scales 包中的log_trans 和reverse_trans 以获得指导和启发，可以制作一个reverselog_trans 函数：

library("scales")
reverselog_trans <- function(base = exp(1)) {
    trans <- function(x) -log(x, base)
    inv <- function(x) base^(-x)
    trans_new(paste0("reverselog-", format(base)), trans, inv, 
              log_breaks(base = base), 
              domain = c(1e-100, Inf))
}

这可以简单地用作：

p + scale_x_continuous(trans=reverselog_trans(10))

给出了情节：

用一个稍微不同的数据集来证明轴肯定是颠倒的：

DF <- data.frame(x=1:10,  y=1:10)
ggplot(DF, aes(x=x,y=y)) + 
  geom_point() +
  scale_x_continuous(trans=reverselog_trans(10))

Answer 2

ggforce 包具有用于此任务的 trans_reverser() 函数。

library(ggplot2)
library(ggforce)

p <- ggplot() +
  geom_line(aes(x = 1:100, y = 1:100))

p +
  scale_x_continuous(trans = trans_reverser('log10')) +
  annotation_logticks(sides = 'tb') +
  theme_bw()

^{由reprex package (v0.3.0) 于 2020 年 11 月 14 日创建}

Answer 3

您可以在 aes() 规范中直接在 ggplot 函数内部应用对数：

require(ggplot2)
df <- data.frame(x=1:10, y=runif(10))
p <- ggplot(data=df, aes(x = log10(x), y=y)) + geom_point() 

然后反转x轴

p + scale_x_reverse()

这样你的数据不会改变，但你可以缩放图表