如何设置 x 轴以减小相同大小的功率值答案

【问题标题】：How to set x-axis with decreasing power values in equal sizes如何设置 x 轴以减小相同大小的功率值
【发布时间】：2015-06-22 20:41:44
【问题描述】：

目前我正在使用 R 绘制一些累积分布图，并且我尝试将 x 轴设置为相同大小的 递减功率值（例如 10000,1000,100,10,1），但我失败：

n<-ceiling(max(test))
qplot(1:n, ecdf(test)(1:n), geom="point",xlab="check-ins", 
      ylab="Pr(X>=x)")+ geom_step()
      +scale_x_reverse(breaks=c(10000,1000,100,10,1))    
      +scale_shape_manual(values=c(15,19))

似乎输出的间隔较大，为 10000，然后所有其他 4 个值都留在 x 轴的右侧小尺寸中。有谁知道如何以大小相等的不同间隔设置 x 轴值？非常感谢。

【问题讨论】：

你检查过这个吗？ stackoverflow.com/questions/11053899/…
今天这个主题的第二个问题。这是课程吗？
@mts Thx，我已经检查过了，但我的情况与那个有点不同，假设我已经反转了x轴值，但我无法设置间隔（1000 ,100,10,1) 的 x 轴大小相等...
@BondedDust 介绍这种课程真的很好也很有帮助，请...
@hui 我看不出您的情况有何不同，以我的拙见，这是重复的。尽管如此，我还是复制并粘贴了一些应该满足您需求的代码（请参见下面的答案），如果没有，请准确说明您所说的“相等大小的间隔”是什么意思。

标签： r plot ggplot2 cdf

【解决方案1】：

结合@Robert 的示例和此处精选答案中的代码：How to get a reversed, log10 scale in ggplot2?

library("scales")
library(ggplot2)
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))
}

set.seed(12345)
test=rnorm(20,1000,5000)
n<-ceiling(max(test))
qplot(1:n, ecdf(test)(1:n), geom="point",xlab="check-ins", 
      ylab="Pr(X>=x)")+ geom_step()+  
scale_x_continuous(trans=reverselog_trans(10), breaks = c(10000,1000,100,10,1))

这应该做你想做的，即 x 轴上从 10000 到 1000 的距离与从 10 到 1 的距离相同。

【讨论】：

【解决方案2】：

使用此代码：

set.seed(12345)
test=rnorm(20,1000,5000)
n<-ceiling(max(test))
qplot(1:n, ecdf(test)(1:n), geom="point",xlab="check-ins", 
      ylab="Pr(X>=x)")+ geom_step()+  scale_x_log10()+ scale_x_reverse(breaks=c(10000,5000,1000,1))

我知道了：

这是你想要的吗？

【讨论】：

很多谢谢，但如果我将休息时间设置为 (10000,1000,100,10,1)，X 轴上的间隔大小不相等，有没有办法让每个间隔大小相等?