Как получить обратную шкалу log10 в ggplot2?

Question

Я хотел бы сделать сюжет с обращенным, log10 х масштабом с использованием ggplot2:

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 дал в своем комментарии, дает правильную идею (создайте собственное преобразование), но устарела в отношении нового пакета scales, который ggplot2 использует сейчас. Глядя на 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))