Desemprego - Brasil

Desemprego no Brasil e nas Capitais Metropolitanas

library(sidrar)
library(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.0.4

library(scales)
library(dynlm)

## Warning: package 'dynlm' was built under R version 4.0.3

## Loading required package: zoo

## Warning: package 'zoo' was built under R version 4.0.4

## 
## Attaching package: 'zoo'

## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

tabela = get_sidra(api='/t/6381/n1/all/v/4099/p/all/d/v4099%201')

## All others arguments are desconsidered when 'api' is informed

times = seq(as.Date('2012-02-01'),as.Date('2021-01-01'), 
 by='month')
 
desemprego = data.frame(time=times, desemprego=tail(tabela$Valor, length(times)))

desemprego$presidente <-c(rep(c("Dilma"),length(seq(as.Date('2012-02-01'),as.Date('2016-07-01'), by='month'))),rep(c("Temer"),length(seq(as.Date('2016-08-31'),as.Date('2019-01-01'), by='month'))),rep(c("Bolsonaro"),length(seq(as.Date('2019-01-01'),as.Date('2021-01-01'), by='month'))))

library(ggthemes)

## Warning: package 'ggthemes' was built under R version 4.0.4

ggplot(desemprego, aes(x=time, y=desemprego))+ 
 geom_text(aes(label=presidente),size=3,vjust=3,shape=22, colour="gray5")+
 geom_line(size=.8, colour='darkblue')+theme_economist()+
 scale_x_date(breaks = date_breaks("1 year"),
 labels = date_format("%b/%Y"))+
 geom_point(size=9, shape=21, colour="red", fill="white")+
 geom_text(aes(label=round(desemprego,1)), size=3, 
 hjust=0.5, vjust=0.5, shape=21, colour="#1a476f")+
 xlab('')+scale_y_continuous(labels = function(x) paste0(x, "%"))+
 labs(title='Desocupados',
 subtitle='2012 a 2021',
 caption='PNAD Contínua')+geom_vline(xintercept =c( as.Date('2016-08-31'),as.Date('2019-01-01')), linetype="dashed", color = "red")

## Warning: Ignoring unknown parameters: shape

## Warning: Ignoring unknown parameters: shape

dolar <- rbcb::get_series(1, start_date = as.Date("2010-01-01"),
                                 end_date = Sys.Date(), as = "xts")

dolar<-dolar[seq(1, 2846, by=20),]

dolar<-data.frame("valor" =dolar$`1`[,1], "data" =  index(dolar$`1`[,1]))

presidente<-data.frame(pres = c("Dilma","Temer","Bolsonaro"), data=as.Date(c("2013-01-01","2017-06-01","2020-06-01")))



ggplot(dolar, aes(x=data, y=X1)) + geom_line() + theme_economist() + scale_y_continuous(labels = function(x) paste("R$",x)) + geom_point(size=9, shape=21, colour="red", fill="white") + geom_text(aes(label=round(X1,2)), size=3, hjust=0.5, vjust=0.5, shape=21, colour="#1a476f") +
geom_vline(xintercept =c(as.Date('2016-08-31'),as.Date('2019-01-01')), linetype="dashed", color = "red") + geom_label(aes(x = data, y = 2.5, label = pres), data = presidente)+labs(y="",x="",title='Taxa de Câmbio',
 subtitle='2010 a 2021',
 caption='@PI_salvador')+ scale_x_date(date_breaks = "12 months" , date_labels = "%b-%y")

## Warning: Ignoring unknown parameters: shape