r - 在一个轴上应用两个变换

Question

我找到了 coord_trans，但我想应用 log10 和reverse 到我的 x 轴。我尝试应用两个转换

ggplot(table) + aes(color=Vowel, x=F1, y=F2) + geom_point() + coord_trans(x="log10", y="log10") + coord_trans(x="reverse", y="reverse")

但只应用了第一个。所以我尝试将它们链接起来

ggplot(table) + aes(color=Vowel, x=F2, y=F1) + geom_point() + coord_trans(x=c("log10", "reverse"), y=c("log10", "reverse"))

这给了我一个明显的错误。

'c("log10_trans", "reverse_trans")' is not a function, character or symbol

我如何链接它们？

Answer 1

您可以使用 trans_new 定义新的转换。

library(scales)
log10_rev_trans <- trans_new(
  "log10_rev",
  function(x) log10(rev(x)),
  function(x) rev(10 ^ (x)),
  log_breaks(10),
  domain = c(1e-100, Inf)
)

p <- ggplot(mtcars, aes(wt, mpg)) +
   geom_point()   

p + coord_trans(y = log10_rev_trans)