Question

I have found coord_trans, but I’d like to apply log10 and
reverse to my x-axis. I tried applying two transformation

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

but only the first one was applied. So I tried linking them

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

Which gives me a plain error.

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

How do I chain them?

Answer 1

You can define new transformations using 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)