barplot中的百分位与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的新手，所以更聪明的人可以提供更好的答案。