Momento R do Dia – Gastos per capita e Gastos em Percentual do PIB

O livro de finanças públicas de Joseph Stiglitz, em sua segunda edição, apresenta um gráfico interessante em seu capítulo 2. Ele diz respeito à correlação entre o percentual do gasto do governo no PIB e a renda per capita para um conjunto de doze países para 1982. Usando os dados do Banco Mundial para o ano de 2014, resolvi ampliar a base de dados.

Primeiramente, tive que excluir alguns subconjuntos de países que o Banco Mundial usa para manter uma amostra apenas de países e não de grupos como “alta renda”, “baixa renda”, etc. Em segundo lugar, para a renda per capita, utilizei a renda por população empregada calculada na PPP de 2011.

Claro, usei o R.

# reproduz a figura 2.8 do livro de Stiglitz de setor público.
data <- read.delim("clipboard")
data<-as.data.frame(data)
data
library(ggplot2)
ggplot(data, aes(x=GDP_per_person_employed_2011_PPP, y=General_gov_final_cons_expenditure_perc_of_GDP))+
  stat_smooth(method="auto",level=0.99)+
  geom_text(aes(label=Code), size=3)+
  ggtitle("Breve correlação - 2014") +
  xlab("GDP per person employed - 2011 PPP") +
  ylab("General gov. final cons. exp. in percent of GDP") 

ggplot(data, aes(x=log(GDP_per_person_employed_2011_PPP), y=log(General_gov_final_cons_expenditure_perc_of_GDP)))+
  stat_smooth(method="auto",level=0.99)+
  geom_text(aes(label=Code), size=3)+
  ggtitle("Breve correlação - 2014 (ambas em log)") +
  xlab("GDP per person employed - 2011 PPP") +
  ylab("General gov. final cons. exp. in percent of GDP")

O gráfico obtido é pouco elucidativo (no código acima, repare que copiei os dados do Excel e colei no R com o bom e velho “clipboard”).

stiglitz1
Assim, passei ambas para a escala logarítmica para, ao menos, visualizar melhor os países que apareciam bem misturados no início do gráfico.

stiglitz2
Os códigos dos países e as variáveis você encontra aqui. Há, certamente, muita coisa para se incomodar nestes gráficos.

Primeiro, há a questão de se entender a proxy de renda per capita utilizada pois países como Brunei (BRN) aparecem em uma – intrigante – alta posição no que diz respeito à esta variável, por exemplo.

Em segundo lugar, não há uma relação clara entre as duas variáveis e talvez isso possa querer dizer alguma coisa. Volto a isto adiante.

Em terceiro lugar, claro, existe a questão de se olhar para um fenômeno apenas em um período de tempo. Um painel seria interessatne, mas a visualização ficaria mais complicada.

Em quarto lugar, há quem goste de brigar por conta do uso de um “gasto de X em percentual do PIB” em uma suposta contraposição ao “gasto de X per capita”. Os gráficos acima não fazem um contraponto a este suposto problema, é verdade. Mas o interessante é que ele faz uma correlação que deve incomodar alguns: compara o gasto governamental em percentual do PIB com o PIB per capita para diversos países (alguma discussão interessante sobre isto aqui).

A idéia era apenas a de ver o que Stiglitz parecia apontar: países com renda per capita mais alta tenderiam a apresentar um gasto do governo mais alto (em percentual do PIB). Bem, o próprio Stiglitz chama a atenção para a cautela de se comparar países distintos e acaba limitando seu gráfico para uma amostra de países desenvolvidos. Em princípio, eu esperava obter grupos de países separados nos gráficos acima. Contudo, não encontrei nada nem perto disto. Talvez os problemas acima sejam importantes para se prosseguir com o tema, mas a idéia era apenas a de fazer um exercício em R.

Até a próxima!

Anúncios

Uma resposta em “Momento R do Dia – Gastos per capita e Gastos em Percentual do PIB

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s