时间戳

首页 > 解决方案 > 在绘图中添加文本 - 基尼指数

r - 在绘图中添加文本 - 基尼指数

问题描述

我有一个 DF，想在plot.

我的DF：

POPULATION = c(0,7009,14019,21028,28037,35047,42056,49065,56074,63084,70093)
INCOME = c(0,0,0,0,0,195680.26,550667.039999996,1034464.62,1821489.83,3360160.17999999,18979682.83)
DF=data.frame(POPULATION,INCOME)

library(ineq)

G = round(ineq(DF$INCOME,type="Gini"),3)

plot(Lc(DF$INCOME),col="darkred",lwd=2,main="Lorenz Curve", xlab="POPULATION", ylab="INCOME")

在我的示例中，G(0.816) 的结果应该出现在右下角。我试过了，text但没有成功。

右下角的结果应该是“Gini = 0.816”

标签： r

解决方案

问题可能是调整（adj参数）text()以证明文本的合理性。

在此处输入图像描述

library(ineq)

POPULATION = c(0,7009,14019,21028,28037,35047,42056,49065,56074,63084,70093)
INCOME = c(0,0,0,0,0,195680.26,550667.039999996,1034464.62,1821489.83,3360160.17999999,18979682.83)
DF=data.frame(POPULATION,INCOME)

G = round(ineq(DF$INCOME,type="Gini"),3)

plot(Lc(DF$INCOME),col="darkred",lwd=2,main="Lorenz Curve", xlab="POPULATION", ylab="INCOME")
text(x=1.0,y=0
     ,labels=paste('Gini = ',G,sep='')
     ,adj = c(1.1,-0.1))

推荐阅读