Previdência Gráfico feito em R

JEPAlayon em 29/04/2019

Seguindo o testo e código do site Análise Macro usando linguagem R e o RStudio postado por Vitor Wilher.

Este gráfico mostra o absurdo dos gastos com previdência social no Brasil.

CÓDIGO

data = read.csv2('Economist_pensions.csv', header=TRUE, sep=',', dec='.')

data = data[-c(36:38),]

colnames(data) = c('country', 'population', 'pension')

library(ggplot2)ggplot(data, aes(x=population, y=pension))+

+     geom_point()

ggplot(data, aes(x=population, y=pension))+

+     geom_point()+

+     geom_text(aes(label=country))

library(ggrepel)

ggplot(data, aes(x=population, y=pension))+

+     geom_point()+

+     geom_text_repel(aes(label=country))

library(ggthemes)

ggplot(data, aes(x=population, y=pension))+

+     geom_point(size=6, colour=ifelse(data$pension>=11.8, '#014d64',

+                                      '#76c0c1'),

+                alpha=ifelse(data$pension>=11.8&data$population<8, 1,.6))+

+     geom_text_repel(aes(label=country),

+                     colour='black',

+                     alpha=c(.4,1,rep(.4,5)),

+                     box.padding = .2,

+                     point.padding = .3,

+                     data=subset(data, pension>=11.8))+

+     theme_economist()+

+     xlab('População acima de 65 anos (% do Total)')+

+     ylab('Gastos com Previdência Social (% PIB)')+

+     labs(title='Brasil: uma aberração no gasto previdenciário',

+          caption='Fonte: OCDE, Banco Mundial e Previdência Social')+

+     theme(plot.title = element_text(size=15))+

+     geom_smooth(method='lm', colour='black', linetype='dashed', se=FALSE)