Testando gráficos de pizza e outras funcionalidades do R.

Objetivo: publicar os primeiros gráficos que eu criei.

1º Passo - Importação:

## # A tibble: 6 x 6
##   familia local       p.a.p   instr                tam renda
##     <dbl> <chr>       <chr>   <chr>              <dbl> <dbl>
## 1       1 Monte Verde Não usa Ensino médio           4  10.3
## 2       2 Monte Verde Não usa Ensino médio           4  15.4
## 3       3 Monte Verde Usa     Ensino fundamental     4   9.6
## 4       4 Monte Verde Não usa Ensino fundamental     5   5.5
## 5       5 Monte Verde Usa     Ensino médio           4   9  
## 6       6 Monte Verde Usa     Sem Instrução          1   2.4

2º Passo - Criar Tabelas:

tabela_1 <- table(Familias$p.a.p)
tabela_2 <- table(Familias$local)

3º Passo - Proporção:

new_tabela_1 <- round(prop.table(tabela_1)*100)
new_tabela_2 <- round(prop.table(tabela_2)*100)

4º Passo - Gráficos:

pie(new_tabela_1,main = "Gráfico 1 - Famílias que usam o P.A.P. (%)", col = c("#02d4b8","#6d0b70") )

pie(new_tabela_2, main = "Gráfico 2 - Local de Moradia das Famílias (%)", col = c("#fccc3a","#001570","#207fa8"))

Objetivo: Concluído.