Na sexta-feira, o U.S. Bureau of Labor Statistics divulgou o dado do nonfarm payroll, ou seja, a quantidade de postos de trabalho não agrícolas criadas/destruídas ao longo do mês. O resultado para agosto foi de uma criação de 235 mil postos de trabalho. O dado veio bem abaixo do esperado.
Para visualizar os dados do payroll no R, podemos usar o pacote quantmod como no código abaixo.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | library(quantmod)library(ggplot2)library(gridExtra)library(dplyr)library(magrittr)library(scales)library(timetk)getSymbols('PAYEMS', src='FRED')data = tk_tbl(PAYEMS, preserve_index = TRUE, rename_index = 'date') %>%rename(payroll=PAYEMS) %>%mutate(variacao = payroll - lag(payroll,1))subdata = filter(data, date > '2020-06-01')ggplot(subdata, aes(x=date, y=variacao))+geom_bar(stat='identity', colour=ifelse(subdata$variacao>0, 'darkblue', 'red'),fill=ifelse(subdata$variacao>0, 'darkblue', 'red'))+geom_text(aes(label=round(variacao,2),vjust = ifelse(variacao > 0, 1, -1)), size=2.6,hjust=0.5, colour="white", fontface='bold')+geom_hline(yintercept=0, colour='black', linetype='dashed')+scale_x_date(breaks = date_breaks("1 month"),labels = date_format("%b/%y"))+theme(axis.text.x=element_text(angle=45, hjust=1),plot.title = element_text(size=9, face='bold'),plot.subtitle = element_text(size=8, face='italic'),panel.background = element_rect(colour='white', fill='white'),axis.text.x.bottom = element_text(size=8, face='bold'))+labs(x='', y='Mil pessoas',title='Payroll mais fraco do que o esperado',subtitle='Variação mensal de empregos não agrícolas criados nos Estados Unidos (mil)',caption='FOnte: FRED Economic Data (quantmod R Package)') |
______________________
(*) Aprenda a coletar e tratar dados macroeconômicos com o nosso Curso de Análise de Conjuntura usando o R.
