Atividade 6 e 7.

Gerando tabela da base de dados estados.

Tabela <- table(Estados$Estado,Estados$Regiao_Geografica)
Tabela
##                      
##                       Centro-Oeste Nordeste Norte Sudeste Sul
##   Acre                           0        0     1       0   0
##   Alagoas                        0        1     0       0   0
##   Amapa                          0        0     1       0   0
##   Amazonas                       0        0     1       0   0
##   Bahia                          0        1     0       0   0
##   Ceara                          0        1     0       0   0
##   Distrito Federal               1        0     0       0   0
##   Espirito Santo                 0        0     0       1   0
##   Goias                          1        0     0       0   0
##   Maranhao                       0        1     0       0   0
##   Mato Grosso                    1        0     0       0   0
##   Mato Grosso do Sul             1        0     0       0   0
##   Minas Gerais                   0        0     0       1   0
##   Para                           0        0     1       0   0
##   Paraiba                        0        1     0       0   0
##   Parana                         0        0     0       0   1
##   Pernambuco                     0        1     0       0   0
##   Piaui                          0        1     0       0   0
##   Rio de Janeiro                 0        0     0       1   0
##   Rio Grande do Norte            0        1     0       0   0
##   Rio Grande do Sul              0        0     0       0   1
##   Rondonia                       0        0     1       0   0
##   Roraima                        0        0     1       0   0
##   Santa Catarina                 0        0     0       0   1
##   Sao Paulo                      0        0     0       1   0
##   Sergipe                        0        1     0       0   0
##   Tocantins                      0        0     1       0   0

Gráfico Estado x Região.

par(bg = ("yellow"))
barplot(Tabela,col = rainbow(1),
        ylim = c(0,10),
        xlab = "Região  Geográfica.",
        ylab = "Estados.",
        main = "Gráfico - Atividade 6.")

Podemos perceber no gráfico, o número de Estados existente em cada Região Geográfica no Brasil. Com auxílio da Tabela conseguimos descobrir quais Estados corresponde a cada região.

Gráfico Inédito - Ridgeline plots.

Uma alternativa ao histograma de densidade são os ridgeline plots do pacote ggridges que são gráficos parcialmente sobrepostos criando a impressão de uma cadeia de montanhas. São gráficos particularmente bons para visualizar as mudanças na distribuição no tempo e espaço, pois permite uma comparação visualmente mais fácil entre os grupos.
library(ggplot2)
library(ggridges)
ggplot(Estados) +
 aes(x = Mortalidade_infantil, y = Regiao_Geografica) +
  geom_density_ridges()

No gráfico conseguimos visualizar que existe um número baixo de mortalidade infantil em alguns estados nas regiões nordeste e centro-oeste. Já na região sul e sudeste existe uma concentração na mortalidade infantil que é o número de óbitos no primeiro ano de vida.
Rio Grande do Norte e Mato grosso são os Estados que tem os menores números ,evidenciando assim,a boa qualidade e expectativa de vida, saneamento básico adequado e a população tem acesso a programas de saúde, medicamentos e vacinação.