如何在ggplot2中获得反转的log10比例？ [英] How to get a reversed, log10 scale in ggplot2?

问题描述

  require（ggplot2）$（ggplot2）$我想用一个反转的，使用ggplot2的log10 x scale进行绘图： （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（）
  code> 

  p + scale_x_reverse（）
  

我想这是合乎逻辑的，如果一个图层只能有一个比例。当然，我可以通过在数据框上进行日志转换来破解它， df $ xLog < - log10（df $ x）
，但该解决方案是似乎违背ggplot的精神。有没有办法得到这种情节，而无需在ggplot调用之外进行数据转换？

@joran在他的评论中给出了正确的想法（构建自己的变换），但是对于 ggplot2 的新 scale $ c>现在使用。在尺度包中查看 log_trans 和 reverse_trans 以获得指导和灵感，a reverselog_trans <

$ p $ lt; code> library（scales）
reverselog_trans< - function（ base = exp（1））{
trans < - function（x）-log（x，base）
inv < - function（x）base ^（ - x）
trans_new （paste0（reverseelog-，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））
  

I'd like to make a plot with a reversed, log10 x scale using ggplot2:

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

However, it seems that I can either a log10 scale or a reversed scale:

p + scale_x_reverse() + scale_x_log10() 

p + scale_x_reverse()

I guess this is logical, if a layer can only have one scale. And certainly I could hack it by doing the log transform on the dataframe myself, df$xLog <- log10(df$x) but that solution is a seems contrary to the spirit of ggplot. Is there a way to get this kind of plot without doing data transformations external to the ggplot call?

解决方案

The link that @joran gave in his comment gives the right idea (build your own transform), but is outdated with regard to the new scales package that ggplot2 uses now. Looking at log_trans and reverse_trans in the scales package for guidance and inspiration, a reverselog_trans function can be made:

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

This can be used simply as:

p + scale_x_continuous(trans=reverselog_trans(10))

which gives the plot:

Using a slightly different data set to show that the axis is definitely reversed:

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

这篇关于如何在ggplot2中获得反转的log10比例？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！