Title: | Pen's Income Parades |
---|---|
Description: | Tool for producing Pen's parade graphs, useful for visualizing inequalities in income, wages or other variables, as proposed by Pen (1971, ISBN: 978-0140212594). Income or another economic variable is captured by the vertical axis, while the population is arranged in ascending order of income along the horizontal axis. Pen's income parades provide an easy-to-interpret visualization of economic inequalities. |
Authors: | Marek Hlavac <[email protected]> |
Maintainer: | Marek Hlavac <[email protected]> |
License: | GPL (>= 2) |
Version: | 0.1 |
Built: | 2024-10-31 20:37:24 UTC |
Source: | CRAN |
Data from a 2013 sample of employed Hispanic workers in metropolitan Chicago. It is a subset of the 2013 Current Population Survey (CPS) Outgoing Rotation Groups (ORG) data set provided by the Center for Economic and Policy Research in Washington, DC (CEPR, 2014).
data("chicago")
data("chicago")
A data frame containing 712 observations on 9 variables. The 9 variables contain labor market and demographic information on a sample of employed Hispanic workers in the Chicago metropolitan area.
[, 1] | age | the worker's age, expressed in years |
[, 2] | female | an indicator for female gender |
[, 3] | foreign.born | an indicator for foreign-born status |
[, 4] | LTHS | an indicator for having completed less than a high school (LTHS) education |
[, 5] | high.school | an indicator for having completed a high school education |
[, 6] | some.college | an indicator for having completed some college education |
[, 7] | college | an indicator for having completed a college education |
[, 8] | advanced.degree | an indicator for having completed an advanced degree |
[, 9] | ln.real.wage | the natural logarithm of the worker's real wage (in 2013 U.S. dollars) |
Center for Economic and Policy Research (CEPR). 2014. CPS ORG Uniform Extracts, Version 1.9 . Washington, DC.
data("chicago") summary(chicago)
data("chicago") summary(chicago)
parade
produces Pen's parade graphs, useful for visualizing inequalities in income, wages or other variables. They were first proposed by Jan Pen in his well-known story of the "parade of dwarfs and a few giants" (Pen, 1971). In this story, income is captured by the vertical axis, while the population is arranged in ascending order of income ("height") along the horizontal axis. As such, Pen's income parades provide an easy-to-interpret visualization of economic inequalities (Cowell, 2000).
parade(height, line.fun = NULL, line.col = "red", line.lty = 1, line.lwd = 2, ...)
parade(height, line.fun = NULL, line.col = "red", line.lty = 1, line.lwd = 2, ...)
height |
a vector of numerical values (e.g., incomes, wages) describing the vertical bars which make up the plot. |
line.fun |
a function whose result, when applied to the data in |
line.col |
a specification for the horizontal line color. This can be a character string giving the color name (e.g., "blue"). Colors can also be specified in terms of their RGB components with a string of the form "#RRGGBB", in which RR, GG and BB correspond to two hexadecimal digits. |
line.lty |
the horizontal line type. It can be specified as an integer (0=blank, 1=solid (default), 2=dashed, 3=dotted, 4=dotdash, 5=longdash, 6=twodash) or as one of the character strings |
line.lwd |
the horizontal line widths (a positive number). |
... |
additional (e.g., graphical) arguments that will be passed on to the |
No horizontal line will be drawn if any of the arguments line.col
, line.lty
or line.lwd
are set to NULL
.
Hlavac, Marek (2019). parade: Pen's Income Parades in R.
R package version 0.1. https://CRAN.R-project.org/package=parade
Marek Hlavac < mhlavac at alumni.princeton.edu >
Research Fellow, Central European Labour Studies Institute (CELSI), Bratislava, Slovakia
Cowell, Frank A. (2000). Measurement of Inequality. In: Atkinson, Anthony B. and Francois Bourguignon, Handbook of Income Distribution. North Holland, 87-166.
Pen, Jan. (1971). Income Distribution. Harmondsworth: Allen Lane.
# load data set of Hispanic workers in Chicago data("chicago") # generate real wages from their logged versions chicago$real.wage <- exp(chicago$ln.real.wage) # simple Pen's parade with a blue, dashed, thin horizontal line at the mean parade(chicago$real.wage, line.col = "blue", line.lwd = 1, line.lty = "dashed")
# load data set of Hispanic workers in Chicago data("chicago") # generate real wages from their logged versions chicago$real.wage <- exp(chicago$ln.real.wage) # simple Pen's parade with a blue, dashed, thin horizontal line at the mean parade(chicago$real.wage, line.col = "blue", line.lwd = 1, line.lty = "dashed")