这个可以吗？

library(DescTools)

#define vector of incomes
x <- c(50, 50, 70, 70, 70, 90, 150, 150, 150, 150)

#calculate Gini coefficient
Gini(x, unbiased=FALSE)

[1] 0.226

DescTools包中的Gini函数可以计算基尼系数