r - 带有ggplot2的条形图中的百分位数

Question

给定两个向量（例如描述两个国家的财富分布），我需要使用条形图来表示不同百分位人口的财富份额。

从两个样本分布开始

e1 <- sort(rexp(100,rate=1))
e2 <- sort(rexp(200,rate=.5))

这就是我所做的

i=c(rep("0 to 50",50),rep("51 to 90",40),rep("91 to 99",9),"top 1%")
i2=rep(i,each=2)
d1 <- data.frame(rep("Italy",100),e1/sum(e1),i)
d2 <- data.frame(rep("France",200),e2/sum(e2),i2)
colnames(d1)=c("geo","wealth","class")
colnames(d2)=c("geo","wealth","class")
dd <- rbind(d1,d2)
ggplot(dd,aes(x=geo,fill=class,weight=wealth))+geom_bar(width=.5)+scale_fill_brewer(palette="Blues")

我想知道是否有更简单/更直接的方法来达到相同的结果

Answer 1

也许您可以尝试查看quantile准备 df1 和 df2 的函数：

q1 <- quantile(e1, c(.5, .90, .99, 1))
df1 <- data.frame(geo = "Italy", class=names(q1), wealth=q1)

q2 <- quantile(e2, c(.5, .90, .99, 1))
df2 <- data.frame(geo = "France", class=names(q2), wealth=q2)

我是新手，R所以更聪明的人可以提供更好的答案。