Permalink
Cannot retrieve contributors at this time
| # | |
| # 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) | |