Economia Regional em R: Desigualdade nos EUA, 1910-2010 - Piketty (2013)

Abstract

This is an undergrad student level instruction for class use.

Licença

This work is licensed under the Creative Commons Attribution-ShareAlike 4.0 International License. To view a copy of this license, visit http://creativecommons.org/licenses/by-sa/4.0/ or send a letter to Creative Commons, PO Box 1866, Mountain View, CA 94042, USA.

License: CC BY-SA 4.0

Citação

Sugestão de citação: FIGUEIREDO, Adriano Marcos Rodrigues. Economia Regional: Desigualdade nos EUA, 1910-2010 - Piketty (2013). Campo Grande-MS,Brasil: RStudio/Rpubs, 2022. Disponível em https://rpubs.com/amrofi/piketty_inequality.

1 Desigualdade de renda nos Estados Unidos, 1910-2010

library(readxl)
data <- structure(list(ano = c(1910, 1911, 1912, 1913, 1914, 1915, 1916, 1917, 1918,
    1919, 1920, 1921, 1922, 1923, 1924, 1925, 1926, 1927, 1928, 1929, 1930, 1931,
    1932, 1933, 1934, 1935, 1936, 1937, 1938, 1939, 1940, 1941, 1942, 1943, 1944,
    1945, 1946, 1947, 1948, 1949, 1950, 1951, 1952, 1953, 1954, 1955, 1956, 1957,
    1958, 1959, 1960, 1961, 1962, 1963, 1964, 1965, 1966, 1967, 1968, 1969, 1970,
    1971, 1972, 1973, 1974, 1975, 1976, 1977, 1978, 1979, 1980, 1981, 1982, 1983,
    1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996,
    1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
    2010), parcela = c(0.405785062006764, 0.407954425028185, 0.411322646561443, 0.410123788049605,
    0.414690868094701, 0.401446335963923, 0.440951578354002, 0.4051, 0.4011, 0.4032,
    0.3901, 0.4318, 0.4372, 0.4146, 0.4441, 0.4635, 0.4571, 0.4667, 0.4929, 0.4671,
    0.4387, 0.4454, 0.4637, 0.456, 0.4578, 0.4449, 0.4659, 0.4423, 0.4407, 0.4552,
    0.4529, 0.4193, 0.3613, 0.3369, 0.3251, 0.3442, 0.367, 0.3435, 0.3501, 0.3475,
    0.3556, 0.3422, 0.3321, 0.3231, 0.3364, 0.3394, 0.3346, 0.3299, 0.3356, 0.34,
    0.3348, 0.3425, 0.337, 0.3378, 0.3442, 0.3478, 0.3367, 0.3444, 0.3485, 0.3393,
    0.3263, 0.3334, 0.3359, 0.3333, 0.3331, 0.3343, 0.3341, 0.3358, 0.3349, 0.3421,
    0.3463, 0.3454, 0.3533, 0.3638, 0.3674, 0.3756, 0.4063, 0.3825, 0.4063, 0.4008,
    0.3998, 0.3955, 0.4082, 0.4068, 0.4078, 0.4211, 0.4348, 0.4464, 0.4539, 0.4647,
    0.4761, 0.4482, 0.4382, 0.4453, 0.464, 0.4833, 0.4932, 0.4974, 0.4823, 0.465,
    0.479)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, -101L))
# ggplot
library(ggplot2)
gg <- ggplot(data = data, aes(x = ano, y = parcela)) + geom_line(colour = "Blue",
    size = 1) + theme(axis.title.x = element_text(face = "bold", size = 7), plot.title = element_text(face = "bold",
    size = 8, hjust = 0.5)) + labs(x = "Ano", y = "Parcela do decil superior na renda nacional",
    title = "Desigualdade de renda nos Estados Unidos, 1910-2010", caption = "Fonte: Dados básicos de Piketty (2013). 
    Ver piketty.pse.ens.fr/capital21c.")
gg + ylim(0.3, 0.5) + scale_x_continuous(limits = c(1910, 2010), breaks = seq(1910,
    2010, 10))

1.1 Leitura:

A participação do decil superior na renda nacional dos EUA caiu de 45-50% nas décadas de 1910-1920 para menos de 35% na década de 1950 (este é o declínio medido por Kuznets); depois passou de menos de 35% na década de 1970 para 45-50% nos anos 2000-2010.

2 Pacote para o WID

WID - World Inequality Database - https://wid.world/ em que um dos diretores é o prof. Thomas Piketty. O pacote WIDworld/wid-r-tool pretende facilitar o acesso à base de dados via R. Existem opções de baixar os dados diretamente assim como de acessar via Stata. O pacote é instalado via Github com o pacote devtools.

devtools::install_github("WIDworld/wid-r-tool")