A user wants to add text in the plot but it did not work out.How to fix that?
Below is the implementation
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")
The issue might be with the adjustment in text() for justification in the text.
Below code can fix the issue
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))
We can also add a legend to the coefficient by adding this to the code.
legend("bottomright", title="GINI",c("0.816"), fill="darkred", cex=0.8)