r - 在 ggplot2 中添加第二个 x 轴

Question

在“graphics”包中，可以将第二个 x 轴(表示分布的百分位数)添加到直方图中，如下所示:

x  <- rnorm(1000)
hist(x, main="", xlab="Bias")
perc  <- quantile(x, seq(from=.00, to=1, by=.1))
axis(1,at=perc,labels=c("0","10%","20%","30%","40%","50%","60%","70%","80%","90%","100%"),cex=0.5, pos= -90)

当然，这看起来很尴尬。那么如何修改以下 ggplot2 代码以添加第二个 x 轴，显示百分位数，而第一个 x 轴应指示原始值？:

library(ggplot2)
theme_classic(base_size = 12, base_family = "")
x  <- rnorm(1000)
qplot(x, main="", xlab="Bias")
perc  <- quantile(x, seq(from=.00, to=1, by=.1))

有什么帮助吗？提前谢谢了!

Answer 1

我不完全确定你在追求什么，因为你的第一个例子实际上并没有产生你所描述的。

但就简单地将百分比与沿 x 轴的原始值相加而言，最简单的策略可能是简单地将两者与一组标签中的换行符组合在一起:

dat <- data.frame(x = rnorm(1000))
perc <- quantile(dat$x,seq(from = 0,to = 1,by = 0.1))
l <- paste(round(perc,1),names(perc),sep = "\n")
> ggplot(dat,aes(x = x)) + 
     geom_histogram() + 
     scale_x_continuous(breaks = perc,labels = l)