雁茗轩 发表于 2012-5-20 19:21 
哦,您说的权重这块我再看看,谢谢您的热心回复!
参考一下page 38/43
The weighted Gini index, which weights the regions’ per capita GRDPs 
based on their respective population proportions
######
R package "reldist"
# Compute the inequality in income growth for the recent cohort of the
# National Longitudinal Survey (NLS) initiated in 1979.
#
library(reldist)
data(nls)
help(nls)
# Compute the wage growth
y <- exp(recent$chpermwage)
# Compute the unweighted estimate
gini(y)
# Compute the weighted estimate
gini(y,w=recent$wgt)