I need to create this graph in R
https://www.johndcook.com/ineqcalc2.png
but I don\'t like to look like in here.
