#Introdução

Aula de gráfico de pizza, tabelas e proporções. Notação: importar dados do R Markdown

#Importação 
library(readxl)
Fam <- read_excel("C:/Users/tauan/Desktop/Base_de_dados-master/Familias.xls", 
                  sheet = "Dados da pesquisa")
head(Fam)
## # 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

A área cinza é o código do R. E a área branca funciona como um word.

#tabela

Criação de tabela 1

#2 - Criar uma tabela

tabela1 <- table(Fam$p.a.p)
tabela1
## 
## Não usa     Usa 
##      42      78

e a tabela 2

#exercício 

tabela2 <- table(Fam$local)
tabela2
## 
##   Encosta do Morro        Monte Verde Parque da Figueira 
##                 37                 40                 43

Com a tabela 1 fizemos um plot percentual

# passo 4 - proporção

prop.table(tabela1) *100
## 
## Não usa     Usa 
##      35      65

E depois plotagem dos gráficos:

Gráfico 1

# passo 5 - gráfico
pie(tabela1, main = "Famílias que usam o P.A.P")

Mudamos a cor:

pie(tabela1, main = "Famílias que usam o P.A.P", col = c("#1784bf", "#ebf70a"))

E o gráfico 2:

pie(tabela2, main = "Gráfico 2", col = c("red", "blue", "sienna1"))

Curiosidade: Pra verificar as cores disponíveis usar o comando colors(). Também é possível pesquisar no google #ffffff e usar o código gerado, como feito no gráfico 2.