从消费者金融调查数据计算百分比

Question

我知道有一个名为survey的包做类似的事情。我不知道是否有任何代码或方法来计算R中的百分比。

我想得到的是前x％家庭持有的相对净值。所以这将是比例：

• （最高x百分位家庭的总财富（0.99分位数到最大值）/（经济中的总财富）*

我在svrqsr个套餐中找到了survey，但与较低的20个百分比家庭相比，它给了我相对份额。

我可以使用的任何建议或代码参考？

Answer 1

按照http://asdfree.com/survey-of-consumer-finances-scf.html上的说明操作，直到

library(convey)
scf_design$designs <- lapply( scf_design$designs , convey_prep )

然后使用

scf_MIcombine( with( scf_design , svyqsr( ~ networth , alpha1 = 0.01 ) ) )

Answer 2

就像@camille所说，quantile可以给你门槛（在你的情况下，99％家庭的净值）。在那之后，只需要将值大于阈值进行求和。

amt<-10^rnorm(1e5,4,1) # Assuming a log normal distribution
amt_99<-amt[amt>quantile(amt,0.99)]  #Top 1%
sum(amt_99)/sum(amt)  # Relative net worth
#Output : [1] 0.4521971