Skip to content
Permalink
master
Switch branches/tags
Go to file
 
 
Cannot retrieve contributors at this time
45 lines (36 sloc) 1.98 KB
#
# sectors-us-employ.R, 21 May 20
# Data from:
# Clark's Sector Model for {US} Economy 1850-2009
# John Kossik
#
# Collated from the sources:
# Economic Report of the President: 2011 Report Spreadsheet Tables, B-46. Employees on nonagricultural payrolls, by major industry, 1965-2010, U.S. Government Printing Office
# http://www.gpo.gov/fdsys/pkg/ERP-2011/xls/ERP-2011-table46.xls
# Economic Report of the President: 2011 Report Spreadsheet Tables, B-35. Civilian population and labor force, 1929-2010, U.S. Government Printing Office
# http://www.gpo.gov/fdsys/pkg/ERP-2011/xls/ERP-2011-table35.xls
# Economic Report of the President: 2001 Report Spreadsheet Tables, B-46. Employees on nonagricultural payrolls, by major industry, 1950-2000, U.S. Government Printing Office
# https://web.archive.org/web/20110301000000*/http://www.gpoaccess.gov/usbudget/fy02/sheets/b46.xls
# Historical statistics of the United States, colonial times to 1970, Volume 1, Chapter D, Labor Force (Series D 1-682), U.S. Bureau of the Census, 1975
# http://www2.census.gov/prod2/statcomp/documents/CT1970p1-05.pdf
#
# Example from:
# Evidence-based Software Engineering: based on the publicly available data
# Derek M. Jones
#
# TAG workforce_evolution
source("ESEUR_config.r")
pal_col=rainbow(4)
employ=read.csv(paste0(ESEUR_dir, "ecosystems/sectors-us-employ.csv.xz"), as.is=TRUE)
plot(employ$Year, 100*(employ$Total.Mining...Logging...fishing+employ$Total.Agricutural.employees)/employ$Total.employees,
type="l", col=pal_col[1],
xaxs="i", yaxs="i",
ylim=c(0, 70),
xlab="Year", ylab="Workforce (percent)\n")
lines(employ$Year, 100*employ$Total.Manufacturing...Construction/employ$Total.employees,
col=pal_col[2])
lines(employ$Year, 100*employ$Total.Service.providing.employees/employ$Total.employees,
col=pal_col[3])
lines(employ$Year, 100*employ$Total.Government.employees/employ$Total.employees,
col=pal_col[4])
legend(x="top", legend=c("Primary", "Secondary", "Tertiary", "Government"), bty="n", fill=pal_col, cex=1.2)