Visualizacao de Dados


Introdução

Se você usar o código ou as informações deste guia em um trabalho publicado, solicito que cite-o como uma fonte nas referências bibliográficas.

DUTT-ROSS,Steven Visualização de dados no R. Rio de Janeiro. 2020. mimeo. Disponível em: https://blog.metodosquantitativos.com/api/


Você não precisa usar o R… pode usar o Python também.


Outro dia encontrei uma visualização de dados do site FiveThirtyEight. Era uma informação sobre a visão dos economistas sobre o desemprego. O gráfico parecia um box-plot só que mais bonito. Tinha uma informação sobre os percentis. Muito interessante.

Penso em usar esse gráfico nos meus próximos relatórios. Será que é dificil reporduzí-lo? O desafio estava feito. Provavelmente esse gráfico foi desenvolvido com o Adobe Illustrator, mas quero refazê-lo com o ggplot.

A Imagem do FiveThirtyEight

A visualização de dados do FiveThirtyEight é essa aqui.

Etapa 1 - Carregar a biblioteca

LI<- c(6, 7, 7, 7.5, 7.4, 7.5, 7.5, 7.0,8.1,8.1,8.1,8.1,5,7.0,7.0,8.1,8.1,8.1,7.5,7.0,8.1,8.1,8,9.8,9.8,9.6,9.6,8.1,7.0,8.1,10,9.8)
media<-c(8, 8, 9, 9  , 9.2, 9.4, 9.5, 10,10 ,10,10,10,10,10,10,10,10,10,10,10,10,10,10.1,10.2,10.3,11,11,11,11,12,12,13)
LS<-   c(11,12,11,11,10.9,12,12,12,12,12,12,12,14,14,14,14,14,14,17,18,18,18,14,12,14.5,14,14,16,18,15,16,18)
economista<-1:32
dados<-data.frame(LI,media,LS,economista)
dados$economista<-as.factor(dados$economista)

Etapa 2 - Carregar as bibliotecas

Nesse exercício, vamos usar duas bibliotecas: 1 - ggplot, 2 - magrittr (por causa do pipe).

library("ggplot2")
library(magrittr)

Acho que o primeiro passo será geraro ponto.

dados %>%
  ggplot(aes(x=economista, y=media, group=1)) +
  geom_point(shape=21, size=3, fill="white") 

Depois, vamos gerar a barra com o comando geom_linerange

dados %>%
  ggplot(aes(x=economista, y=media, group=1)) +
  geom_linerange(aes(ymin=LI, ymax=LS), colour="darkgreen", size = 2)+ 
  geom_point(shape=21, size=3, fill="white") 

Em seguida, vamos transpor o gráfico com o comando coord_flip().

dados %>%
  ggplot(aes(x=economista, y=media, group=1)) +
  geom_linerange(aes(ymin=LI, ymax=LS), colour="#8fb08d",alpha=0.5, size = 2)+ 
  geom_point(shape=21, size=3.5, fill="#50a64b") +
  coord_flip()