R Graphical Manual

Browse All

Last data update: 2014.03.03

R: Lorenz Curve

curveLorenz

R Documentation

Lorenz Curve

Description

Plots an ordinary or generalized Lorenz curve.

Usage

curveLorenz(x, w = NULL, gener = FALSE, xlab = NA, ylab = NA, add = FALSE, grid = 0, ...)

Arguments

`x`	Numeric vector with non-negative values.
`w`	Numeric vector of sampling weigths (optional).
`gener`	If `gener` is `TRUE`, the generalized curve is plotted. Else, the ordinary curve is plotted.
`xlab`	Title for the x-axis.
`ylab`	Title for the y-axis.
`add`	If `add` is `TRUE`, only the curve is drawn. The device must contain a high-level plot.
`grid`	If `grid` >0, a grid is drawn, with spacing equal to `1/grid`.
`...`	Further arguments to be used for drawing the Lorenz curve (see `lines`).

References

Cowell F.A. (2000) Measurement of Inequality. In Atkinson A.B., Bourguignon F. (Eds.) Handbook of Income Distribution. Amsterdam, Elsevier, Vol. 1, pp. 87-166.

Examples

data(hhbudgets)

curveLorenz(x=hhbudgets[, "transporte"], w =hhbudgets[,"factor"])
curveLorenz(x=hhbudgets[, "transporte"], w =hhbudgets[,"factor"], gener=TRUE, col="red")

Results


R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(IC2)
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/IC2/curveLorenz.Rd_%03d_medium.png", width=480, height=480)
> ### Name: curveLorenz
> ### Title: Lorenz Curve
> ### Aliases: curveLorenz
> 
> ### ** Examples
> 
> data(hhbudgets)
> 
> curveLorenz(x=hhbudgets[, "transporte"], w =hhbudgets[,"factor"])
> curveLorenz(x=hhbudgets[, "transporte"], w =hhbudgets[,"factor"], gener=TRUE, col="red")
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>