# 4.4 - Compondo uma visão sobre a distribuição dos dados

**Objetivo**: introduzir geral os passos básicos da análise exploratória de dados.

**Como fazer:** assista ao vídeo, leia o material complementar e procure reproduzir os códigos no seu computador

{% embed url="https://www.youtube.com/watch?authuser=0&v=ke_67gG8lek" %}

#### Material complementar

{% embed url="https://populacoes.info/rcb/capacitacao/curso_obppp2_v3/fbok/4_3_bar_jitter_boxplot_violin_flipbx.html?authuser=0#1" %}

```r
#'  _        __
#' (_)      / _|                 
#'  _ _ __ | |_ ___  ___  ___   ___  
#' | | '_ \|  _/ _ \/ __|/ _ \ / __| 
#' | | | | | || (_) \__ \ (_) | (__  
#' |_|_| |_|_| \___/|___/\___/ \___| 
#' -------------------------------------
#'  Informática Aplicada às Ciências Sociais
#'  Centro de Letras e Ciências Humanas - CCH
#'  Universidade Estadual de Londrina - UEL
#'  Autores: - Prof. Ronaldo Baltar
#'           - Prof.ª Cláudia Siqueira Baltar
#'  Curso: Explorando Indicadores Sociais com R 
#'  Atividade: 4.3
#'  Versão: 2023



#  ----------------------
#  Configurações iniciais 
#  ----------------------
library(tidyverse)


#  ----------------------
#  Gráficos 
#  ----------------------

# Gráfico de barras

ggplot(c1r1_dic_tbl) +
  aes(x = classe_idhm, 
      fill = urbano_rural) +
  geom_bar() +
  scale_fill_hue(direction = 1) +
  theme_minimal()

# Histograma 

ggplot(c1r1_dic_tbl) +
 aes(x = IDHM) +
 geom_histogram(bins = 30L, fill = "#FF8C00") +
 theme_minimal() +
 facet_wrap(vars(urbano_rural))

# Gráfico de densidade

ggplot(c1r1_dic_tbl) +
 aes(x = IDHM) +
 geom_density(adjust = 1L, fill = "#FF8C00") +
 theme_minimal() +
 facet_wrap(vars(urbano_rural))

# Gráfico Jitter

ggplot(c1r1_dic_tbl) +
  aes(x = IDHM, y = urbano_rural) +
  geom_jitter(size = 1.5) +
  theme_minimal()


# Gráfico Boxplot

ggplot(c1r1_dic_tbl) +
 aes(x = IDHM, y = urbano_rural) +
 geom_boxplot(fill = "#FF8C00") +
 theme_minimal()

# Gráfico Violino

ggplot(c1r1_dic_tbl) +
 aes(x = IDHM, y = urbano_rural) +
 geom_violin(adjust = 1L, scale = "area", fill = "#FF8C00") +
 theme_minimal()



#  ----------------------
#  Gráficos combinados
#  Jitter, Violino e Boxplot
#  ----------------------


ggplot(c1r1_dic_tbl) +
  aes(x = IDHM, y = urbano_rural) +
  geom_jitter(colour = "brown", size = 1) +
  geom_violin(adjust = 1L, scale = "area", fill = "#FF8C00", alpha = 0.6) +
  geom_boxplot(fill = NA, 
               color = "black", 
               linewidth = 1,
               outlier.colour = "red",
               outlier.size = 4) +
  theme_minimal()



### ----------------
# Gráficos gerados usando o {esquisse}


# point
ggplot(c1r1_dic_tbl) +
 aes(x = IDHM, y = urbano_rural) +
 geom_point(shape = "circle", size = 1.5, colour = "#112446") +
 theme_minimal()

#jitter
ggplot(c1r1_dic_tbl) +
 aes(x = IDHM, y = urbano_rural) +
 geom_jitter(size = 1.5) +
 theme_minimal()

#bar
ggplot(c1r1_dic_tbl) +
 aes(x = classe_idhm, fill = urbano_rural) +
 geom_bar() +
 scale_fill_hue(direction = 1) +
 theme_minimal()


```
