¿Cómo obtener una escala inversa, log10 en ggplot2?

Question

me gustaría hacer una parcela con una escala log10 x inversa usando ggplot2:

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

Sin embargo, parece que lo que pueda ya sea una escala log10 o una escala invertida:

p + scale_x_reverse() + scale_x_log10() 

p + scale_x_reverse() 

Supongo que esto es lógico, si una capa solo puede tener una escala. Y ciertamente podría hackearlo haciendo la transformación de registro en el marco de datos yo mismo, df$xLog <- log10(df$x) pero esa solución es una parece contraria al espíritu de ggplot. ¿Hay alguna forma de obtener este tipo de trazado sin hacer transformaciones de datos externas a la llamada ggplot?

Answer 1

El enlace que @joran dio en su comentario da la idea correcta (construya su propia transformación), pero está desactualizado con respecto al nuevo paquete que ggplot2 usa ahora. En cuanto a log_trans y reverse_trans en el paquete escalas de guía e inspiración, una función reverselog_trans se puede hacer:

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)) 
} 

Esto puede ser utilizado simplemente como:

p + scale_x_continuous(trans=reverselog_trans(10)) 

que da el terreno:

Utilizando un conjunto de datos ligeramente diferente para mostrar que el eje es definitivamente Invertida:

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))