I\'ve figured out how to draw a nice lorenz curve that is adjusted to frequency of observations. I use the ineq package, version 02.13.
ineq
install.pack