data.frame giving the profits of the finance industry in the
United States as a proportion of total corporate domestic profits.
data.frame with the following columns:
integer year starting with 1929
Corporate profits with inventory valuation and capital consumption adjustments in billions of current (not adjusted for inflation) US dollars
Domestic industries profits in billions
Financial industries profits in billions
Nonfinancial industries profits in billions
Profits of the "Rest of the world" in their contribution to US Gross Domestic Product in billions
This is extracted from Table 6.16 of the National Income and Product Accounts (NIPA) compiled by the Bureau of Economic Analysis of the United States federal government. This table comes in four parts, A (1929-1947), B (1948-1987), C (1987-2000), and D (1998-present). Parts A, B, C and D contain different numbers of data elements, but the first five have the same names and are the only ones used here. The overlap between parts C and D (1998-2000) have a root mean square relative difference of 0.7 percent; there were no differences between the numbers in the overlap period between parts B and C (1987).
This was created using the following command:
demoDir <- system.file('demoFiles', package='Ecdat') demoCsv <- dir(demoDir, pattern='csv$', full.names=TRUE)
nipa6.16 <- readNIPA(demoCsv) USFinanceIndustry <- as.data.frame(nipa6.16) names(USFinanceIndustry) <- c('year', 'CorporateProfitsAdj', 'Domestic', 'Financial', 'Nonfinancial', 'restOfWorld') USFinanceIndustry$FinanceProportion <- with(USFinanceIndustry, Financial/Domestic)
http://www.bea.gov: Under "U.S. Economic Accounts", first
select "Corporate Profits" under "National". Then next to
"Interactive Tables", select, "National Income and Product Accounts
Tables". From there, select "Begin using the data...". Under
"Section 6 - income and employment by industry", select each of the
tables starting "Table 6.16". As of February 2013, there were 4 such
tables available: Table 6.16A, 6.16B, 6.16C and 6.16D. Each of the
last three are available in annual and quarterly summaries. The
USFinanceIndustry data combined the first 4 rows of the 4
annual summary tables.
1 2 3 4 5 6 7 8 9 10 11 12 13
data(USFinanceIndustry) plot(FinanceProportion~year, USFinanceIndustry, type='b', ylim=c(0, max(FinanceProportion, na.rm=TRUE)), xlab='', ylab='', las=1, cex.axis=2, bty='n', lwd=2, col='blue') # Write to a file for Wikimedia Commons svg('USFinanceIndustry.svg') plot(FinanceProportion~year, USFinanceIndustry, type='b', ylim=c(0, max(FinanceProportion, na.rm=TRUE)), xlab='', ylab='', las=1, cex.axis=2, bty='n', lwd=2, col='blue') dev.off()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.