Làm thế nào để có được một quy mô đảo ngược, log10 trong ggplot2?

Question

Tôi muốn làm cho một âm mưu với một đảo ngược, log10 x quy mô sử dụng ggplot2:

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

Tuy nhiên, có vẻ như tôi có thể hoặc một quy mô log10 hoặc một quy mô đảo ngược:

p + scale_x_reverse() + scale_x_log10() 

p + scale_x_reverse() 

Tôi đoán điều này là hợp lý, nếu một lớp chỉ có thể có một tỷ lệ. Và chắc chắn tôi có thể hack nó bằng cách làm biến log trên dataframe bản thân mình, df$xLog <- log10(df$x) nhưng giải pháp đó có vẻ trái ngược với tinh thần của ggplot. Có cách nào để có được loại âm mưu này mà không làm biến đổi dữ liệu bên ngoài cuộc gọi ggplot không?

Answer 1

Liên kết mà @joran đưa ra trong nhận xét của ông đưa ra ý tưởng đúng (xây dựng biến đổi của riêng bạn), nhưng đã lỗi thời đối với gói scales mới ggplot2 sử dụng ngay bây giờ. Nhìn vào log_trans và reverse_trans trong gói quy mô để được hướng dẫn và cảm hứng, một hàm reverselog_trans thể được thực hiện:

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

Điều này có thể được sử dụng đơn giản như:

p + scale_x_continuous(trans=reverselog_trans(10)) 

mang đến cho cốt truyện:

Sử dụng bộ dữ liệu hơi khác để hiển thị rằng trục chắc chắn đảo ngược:

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