준비한 자료는 E. Saez 교수의 홈페이지에 있는 TabFig2017prel.xls` 를 손봐서 불러들인 것이다.
options(digits = 3)
library(xlsx)
US_top_income_shares_17 <- read.xlsx("../data/TabFig2017prel.xlsx",
sheetIndex = 9,
sheetName = "Table A3",
startRow = 6,
endRow = 110,
colIndex = c(1:7, 9:13),
colClasses = c("integer", rep("numeric", 12)),
header = FALSE)
v_names <- c("Year", "P90_100", "P95_100", "P99_100", "P99.5_100", "P99.9_100", "P99.99_100", "P90_95", "P95_99", "P99_99.5", "P99.5_99.9", "P99.9_99.99")
names(US_top_income_shares_17) <- v_names
str(US_top_income_shares_17)
ls()library(knitr)
kable(format(US_top_income_shares_17, digits = 1, nsmall = 1), align = "r")| Year | P90_100 | P95_100 | P99_100 | P99.5_100 | P99.9_100 | P99.99_100 | P90_95 | P95_99 | P99_99.5 | P99.5_99.9 | P99.9_99.99 |
|---|---|---|---|---|---|---|---|---|---|---|---|
| 1913 | NA | NA | 18.0 | 14.7 | 8.6 | 2.8 | NA | NA | 3.2 | 6.1 | 5.9 |
| 1914 | NA | NA | 18.2 | 15.1 | 8.6 | 2.7 | NA | NA | 3.1 | 6.5 | 5.9 |
| 1915 | NA | NA | 17.6 | 14.6 | 9.2 | 4.4 | NA | NA | 3.0 | 5.4 | 4.9 |
| 1916 | NA | NA | 19.3 | 16.4 | 10.5 | 4.8 | NA | NA | 2.9 | 5.9 | 5.7 |
| 1917 | 40.5 | 30.6 | 17.7 | 14.3 | 8.4 | 3.4 | 9.9 | 12.9 | 3.4 | 5.9 | 5.0 |
| 1918 | 40.1 | 29.5 | 16.0 | 12.4 | 6.7 | 2.5 | 10.6 | 13.5 | 3.5 | 5.7 | 4.3 |
| 1919 | 40.3 | 30.2 | 16.4 | 12.6 | 6.6 | 2.3 | 10.1 | 13.8 | 3.8 | 6.0 | 4.3 |
| 1920 | 39.0 | 28.3 | 14.8 | 11.1 | 5.4 | 1.7 | 10.7 | 13.5 | 3.7 | 5.8 | 3.7 |
| 1921 | 43.2 | 30.8 | 15.6 | 11.7 | 5.6 | 1.7 | 12.4 | 15.2 | 3.9 | 6.1 | 3.9 |
| 1922 | 43.7 | 31.9 | 17.1 | 13.1 | 6.6 | 2.3 | 11.8 | 14.9 | 4.0 | 6.4 | 4.4 |
| 1923 | 41.5 | 29.8 | 15.6 | 11.9 | 5.9 | 2.0 | 11.7 | 14.1 | 3.7 | 6.0 | 3.9 |
| 1924 | 44.4 | 32.1 | 17.4 | 13.4 | 6.8 | 2.3 | 12.3 | 14.7 | 4.0 | 6.6 | 4.5 |
| 1925 | 46.4 | 35.0 | 20.2 | 15.9 | 8.5 | 3.3 | 11.3 | 14.8 | 4.4 | 7.3 | 5.2 |
| 1926 | 45.7 | 34.6 | 19.9 | 15.5 | 8.5 | 3.4 | 11.1 | 14.7 | 4.4 | 7.1 | 5.1 |
| 1927 | 46.7 | 35.7 | 21.0 | 16.6 | 9.3 | 3.8 | 11.0 | 14.7 | 4.4 | 7.3 | 5.5 |
| 1928 | 49.3 | 38.6 | 23.9 | 19.4 | 11.5 | 5.0 | 10.7 | 14.6 | 4.5 | 7.9 | 6.5 |
| 1929 | 46.7 | 36.5 | 22.4 | 18.1 | 10.9 | 5.0 | 10.2 | 14.1 | 4.3 | 7.2 | 5.9 |
| 1930 | 43.9 | 32.1 | 17.2 | 13.2 | 7.1 | 2.8 | 11.8 | 14.8 | 4.0 | 6.1 | 4.2 |
| 1931 | 44.5 | 31.2 | 15.5 | 11.6 | 5.9 | 2.2 | 13.3 | 15.7 | 3.9 | 5.7 | 3.6 |
| 1932 | 46.4 | 32.7 | 15.6 | 11.6 | 6.0 | 2.0 | 13.7 | 17.1 | 3.9 | 5.7 | 4.0 |
| 1933 | 45.6 | 33.2 | 16.5 | 12.5 | 6.6 | 2.3 | 12.4 | 16.7 | 4.0 | 5.9 | 4.3 |
| 1934 | 45.8 | 33.7 | 16.4 | 12.3 | 6.1 | 2.1 | 12.1 | 17.3 | 4.1 | 6.2 | 4.1 |
| 1935 | 44.5 | 32.3 | 16.7 | 12.6 | 6.4 | 2.2 | 12.2 | 15.6 | 4.0 | 6.2 | 4.2 |
| 1936 | 46.6 | 34.6 | 19.3 | 14.9 | 7.6 | 2.5 | 12.0 | 15.4 | 4.4 | 7.3 | 5.0 |
| 1937 | 44.2 | 32.3 | 17.1 | 13.0 | 6.5 | 2.2 | 12.0 | 15.1 | 4.1 | 6.5 | 4.3 |
| 1938 | 44.1 | 31.3 | 15.8 | 11.8 | 5.9 | 2.2 | 12.7 | 15.6 | 4.0 | 5.9 | 3.7 |
| 1939 | 45.5 | 32.3 | 16.2 | 12.1 | 5.9 | 2.0 | 13.2 | 16.1 | 4.1 | 6.2 | 3.9 |
| 1940 | 45.3 | 32.2 | 16.5 | 12.3 | 6.0 | 2.0 | 13.1 | 15.7 | 4.1 | 6.3 | 4.0 |
| 1941 | 41.9 | 30.0 | 15.8 | 11.9 | 5.8 | 2.0 | 11.9 | 14.2 | 3.9 | 6.1 | 3.8 |
| 1942 | 36.1 | 25.8 | 13.4 | 10.1 | 4.8 | 1.5 | 10.3 | 12.4 | 3.4 | 5.3 | 3.3 |
| 1943 | 33.7 | 24.1 | 12.3 | 9.1 | 4.3 | 1.2 | 9.6 | 11.8 | 3.2 | 4.9 | 3.0 |
| 1944 | 32.5 | 22.8 | 11.3 | 8.3 | 3.8 | 1.2 | 9.7 | 11.5 | 3.0 | 4.5 | 2.6 |
| 1945 | 34.4 | 24.8 | 12.5 | 9.1 | 4.2 | 1.3 | 9.6 | 12.3 | 3.4 | 5.0 | 2.9 |
| 1946 | 36.7 | 26.8 | 13.3 | 9.6 | 4.4 | 1.5 | 9.9 | 13.5 | 3.7 | 5.2 | 2.9 |
| 1947 | 34.3 | 24.7 | 12.0 | 8.6 | 3.9 | 1.3 | 9.7 | 12.7 | 3.3 | 4.7 | 2.6 |
| 1948 | 35.0 | 25.1 | 12.2 | 8.9 | 4.1 | 1.3 | 10.0 | 12.8 | 3.3 | 4.8 | 2.7 |
| 1949 | 34.8 | 24.5 | 11.7 | 8.5 | 3.8 | 1.2 | 10.2 | 12.8 | 3.3 | 4.6 | 2.6 |
| 1950 | 35.6 | 25.5 | 12.8 | 9.4 | 4.4 | 1.2 | 10.0 | 12.7 | 3.4 | 5.0 | 3.2 |
| 1951 | 34.2 | 24.2 | 11.8 | 8.5 | 3.9 | 1.3 | 10.0 | 12.4 | 3.3 | 4.6 | 2.6 |
| 1952 | 33.2 | 23.1 | 10.8 | 7.7 | 3.4 | 1.1 | 10.1 | 12.3 | 3.1 | 4.3 | 2.3 |
| 1953 | 32.3 | 22.0 | 9.9 | 7.0 | 3.1 | 1.0 | 10.3 | 12.1 | 2.9 | 4.0 | 2.1 |
| 1954 | 33.6 | 23.3 | 10.8 | 7.7 | 3.5 | 1.2 | 10.3 | 12.5 | 3.1 | 4.2 | 2.3 |
| 1955 | 33.9 | 23.6 | 11.1 | 8.0 | 3.7 | 1.3 | 10.3 | 12.5 | 3.1 | 4.2 | 2.4 |
| 1956 | 33.5 | 23.1 | 10.7 | 7.7 | 3.5 | 1.2 | 10.3 | 12.5 | 3.0 | 4.2 | 2.3 |
| 1957 | 33.0 | 22.6 | 10.2 | 7.2 | 3.2 | 1.1 | 10.4 | 12.4 | 2.9 | 4.0 | 2.1 |
| 1958 | 33.6 | 22.9 | 10.2 | 7.3 | 3.2 | 1.1 | 10.6 | 12.7 | 2.9 | 4.0 | 2.1 |
| 1959 | 34.0 | 23.4 | 10.6 | 7.7 | 3.4 | 1.2 | 10.6 | 12.7 | 2.9 | 4.3 | 2.3 |
| 1960 | 33.5 | 22.6 | 10.0 | 7.1 | 3.2 | 1.2 | 10.9 | 12.5 | 2.9 | 3.9 | 2.1 |
| 1961 | 34.3 | 23.5 | 10.6 | 7.7 | 3.7 | 1.4 | 10.8 | 12.9 | 3.0 | 4.0 | 2.3 |
| 1962 | 33.7 | 22.8 | 9.9 | 7.1 | 3.2 | 1.2 | 10.9 | 12.9 | 2.9 | 3.9 | 2.0 |
| 1963 | 33.8 | 22.8 | 9.9 | 7.0 | 3.1 | 1.1 | 10.9 | 12.9 | 2.9 | 3.9 | 2.0 |
| 1964 | 34.4 | 23.5 | 10.5 | 7.4 | 3.4 | 1.3 | 10.9 | 13.0 | 3.1 | 4.0 | 2.1 |
| 1965 | 34.8 | 23.9 | 10.9 | 7.7 | 3.7 | 1.5 | 10.9 | 13.0 | 3.2 | 4.1 | 2.2 |
| 1966 | 33.7 | 22.9 | 10.2 | 7.2 | 3.4 | 1.3 | 10.8 | 12.7 | 3.0 | 3.8 | 2.1 |
| 1967 | 34.4 | 23.7 | 10.7 | 7.7 | 3.7 | 1.4 | 10.7 | 13.0 | 3.1 | 4.0 | 2.3 |
| 1968 | 34.8 | 24.2 | 11.2 | 8.1 | 4.0 | 1.6 | 10.7 | 12.9 | 3.1 | 4.1 | 2.4 |
| 1969 | 33.9 | 23.1 | 10.4 | 7.4 | 3.7 | 1.6 | 10.8 | 12.7 | 2.9 | 3.8 | 2.1 |
| 1970 | 32.6 | 21.7 | 9.0 | 6.3 | 2.8 | 1.0 | 11.0 | 12.6 | 2.8 | 3.5 | 1.8 |
| 1971 | 33.3 | 22.3 | 9.4 | 6.6 | 3.0 | 1.1 | 11.1 | 12.9 | 2.8 | 3.6 | 1.9 |
| 1972 | 33.6 | 22.5 | 9.6 | 6.8 | 3.1 | 1.2 | 11.1 | 12.9 | 2.9 | 3.7 | 1.9 |
| 1973 | 33.3 | 22.2 | 9.2 | 6.3 | 2.8 | 0.9 | 11.1 | 13.1 | 2.9 | 3.5 | 1.8 |
| 1974 | 33.3 | 22.1 | 9.1 | 6.3 | 2.7 | 0.9 | 11.2 | 13.0 | 2.8 | 3.6 | 1.8 |
| 1975 | 33.4 | 22.0 | 8.9 | 6.1 | 2.6 | 0.8 | 11.5 | 13.1 | 2.8 | 3.5 | 1.7 |
| 1976 | 33.4 | 22.0 | 8.9 | 6.1 | 2.6 | 0.9 | 11.4 | 13.1 | 2.8 | 3.5 | 1.7 |
| 1977 | 33.6 | 22.1 | 9.0 | 6.2 | 2.7 | 0.9 | 11.5 | 13.1 | 2.8 | 3.5 | 1.8 |
| 1978 | 33.5 | 22.0 | 9.0 | 6.2 | 2.6 | 0.9 | 11.5 | 13.1 | 2.8 | 3.5 | 1.8 |
| 1979 | 34.2 | 22.9 | 10.0 | 7.1 | 3.4 | 1.4 | 11.3 | 13.0 | 2.8 | 3.7 | 2.1 |
| 1980 | 34.6 | 23.2 | 10.0 | 7.1 | 3.4 | 1.3 | 11.5 | 13.1 | 2.9 | 3.7 | 2.1 |
| 1981 | 34.5 | 23.0 | 10.0 | 7.2 | 3.6 | 1.4 | 11.5 | 13.0 | 2.8 | 3.7 | 2.2 |
| 1982 | 35.3 | 23.8 | 10.8 | 8.0 | 4.2 | 1.7 | 11.5 | 13.0 | 2.8 | 3.8 | 2.4 |
| 1983 | 36.4 | 24.9 | 11.6 | 8.6 | 4.6 | 1.9 | 11.5 | 13.3 | 2.9 | 4.0 | 2.7 |
| 1984 | 36.7 | 25.3 | 12.0 | 9.0 | 5.0 | 2.2 | 11.4 | 13.3 | 3.0 | 4.1 | 2.8 |
| 1985 | 37.6 | 26.1 | 12.7 | 9.6 | 5.3 | 2.2 | 11.4 | 13.4 | 3.0 | 4.3 | 3.1 |
| 1986 | 40.6 | 29.5 | 15.9 | 12.6 | 7.4 | 3.3 | 11.1 | 13.6 | 3.3 | 5.2 | 4.1 |
| 1987 | 38.2 | 26.5 | 12.7 | 9.4 | 4.9 | 1.9 | 11.7 | 13.9 | 3.2 | 4.5 | 3.0 |
| 1988 | 40.6 | 29.3 | 15.5 | 12.1 | 6.8 | 2.9 | 11.3 | 13.8 | 3.4 | 5.3 | 3.9 |
| 1989 | 40.1 | 28.5 | 14.5 | 11.1 | 6.0 | 2.5 | 11.5 | 14.1 | 3.4 | 5.1 | 3.5 |
| 1990 | 40.0 | 28.4 | 14.3 | 10.9 | 5.8 | 2.3 | 11.6 | 14.1 | 3.4 | 5.1 | 3.5 |
| 1991 | 39.5 | 27.7 | 13.4 | 10.0 | 5.1 | 2.0 | 11.8 | 14.4 | 3.4 | 4.9 | 3.2 |
| 1992 | 40.8 | 29.1 | 14.7 | 11.2 | 6.0 | 2.5 | 11.8 | 14.4 | 3.5 | 5.2 | 3.6 |
| 1993 | 40.7 | 28.8 | 14.2 | 10.8 | 5.7 | 2.3 | 11.9 | 14.6 | 3.5 | 5.0 | 3.4 |
| 1994 | 40.8 | 28.9 | 14.2 | 10.7 | 5.7 | 2.3 | 11.9 | 14.7 | 3.5 | 5.0 | 3.4 |
| 1995 | 42.1 | 30.2 | 15.2 | 11.6 | 6.2 | 2.5 | 11.9 | 15.0 | 3.7 | 5.4 | 3.7 |
| 1996 | 43.5 | 31.8 | 16.7 | 12.9 | 7.2 | 3.1 | 11.7 | 15.1 | 3.8 | 5.7 | 4.2 |
| 1997 | 44.6 | 33.1 | 18.0 | 14.2 | 8.2 | 3.5 | 11.5 | 15.1 | 3.9 | 6.0 | 4.7 |
| 1998 | 45.4 | 34.1 | 19.1 | 15.2 | 9.0 | 3.9 | 11.3 | 15.0 | 3.9 | 6.2 | 5.1 |
| 1999 | 46.5 | 35.2 | 20.0 | 16.0 | 9.6 | 4.2 | 11.3 | 15.2 | 4.0 | 6.4 | 5.4 |
| 2000 | 47.6 | 36.6 | 21.5 | 17.5 | 10.9 | 5.1 | 11.0 | 15.1 | 4.1 | 6.6 | 5.8 |
| 2001 | 44.8 | 33.4 | 18.2 | 14.3 | 8.4 | 3.7 | 11.5 | 15.1 | 3.9 | 6.0 | 4.7 |
| 2002 | 43.8 | 32.1 | 16.9 | 13.0 | 7.3 | 3.1 | 11.8 | 15.2 | 3.8 | 5.7 | 4.2 |
| 2003 | 44.5 | 32.8 | 17.5 | 13.7 | 7.9 | 3.5 | 11.8 | 15.2 | 3.9 | 5.8 | 4.4 |
| 2004 | 46.4 | 35.0 | 19.8 | 15.7 | 9.5 | 4.3 | 11.4 | 15.2 | 4.0 | 6.3 | 5.1 |
| 2005 | 48.3 | 37.2 | 21.9 | 17.8 | 11.0 | 5.1 | 11.2 | 15.2 | 4.1 | 6.8 | 5.9 |
| 2006 | 49.3 | 38.1 | 22.8 | 18.6 | 11.6 | 5.5 | 11.2 | 15.3 | 4.2 | 7.0 | 6.1 |
| 2007 | 49.7 | 38.7 | 23.5 | 19.3 | 12.3 | 6.0 | 11.1 | 15.2 | 4.2 | 7.0 | 6.2 |
| 2008 | 48.2 | 36.5 | 20.9 | 16.9 | 10.4 | 5.0 | 11.7 | 15.6 | 4.1 | 6.5 | 5.4 |
| 2009 | 46.5 | 34.1 | 18.1 | 14.2 | 8.3 | 3.9 | 12.4 | 16.0 | 4.0 | 5.9 | 4.4 |
| 2010 | 48.0 | 35.9 | 19.9 | 15.8 | 9.7 | 4.8 | 12.2 | 16.0 | 4.0 | 6.2 | 4.9 |
| 2011 | 48.1 | 35.9 | 19.6 | 15.5 | 9.3 | 4.3 | 12.2 | 16.2 | 4.1 | 6.3 | 4.9 |
| 2012 | 50.6 | 38.8 | 22.8 | 18.6 | 11.7 | 5.8 | 11.8 | 16.0 | 4.2 | 6.9 | 5.9 |
| 2013 | 48.6 | 36.4 | 20.0 | 15.8 | 9.4 | 4.5 | 12.2 | 16.4 | 4.2 | 6.4 | 5.0 |
| 2014 | 49.9 | 37.9 | 21.5 | 17.2 | 10.6 | 5.1 | 12.0 | 16.4 | 4.3 | 6.7 | 5.4 |
| 2015 | 50.0 | 38.0 | 21.6 | 17.3 | 10.6 | 5.1 | 12.0 | 16.4 | 4.3 | 6.7 | 5.5 |
| 2016 | 49.5 | 37.4 | 20.7 | 16.4 | 9.9 | 4.7 | 12.2 | 16.7 | 4.3 | 6.6 | 5.2 |
| 2017 | 50.1 | 38.1 | 21.5 | 17.2 | 10.4 | 4.9 | 12.0 | 16.7 | 4.3 | 6.7 | 5.5 |
saveRDS(US_top_income_shares_17, file = "./US_top_income.RDS")
save.image(file = "US_top_income_shares_2017.RData")