Introdução

Gráficos de pizza, tabelas e proporções

Importação de dados para o RMarkdown

#Passo 1 - importação de dados do execel

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

Tabelas desenvolvidas

#Passo 2 - Criar uma tabela

tabela_1 <- table(Familias$p.a.p)
tabela_1
## 
## Não usa     Usa 
##      42      78
tabela_2 <- table(Familias$local)
tabela_2
## 
##   Encosta do Morro        Monte Verde Parque da Figueira 
##                 37                 40                 43

#Proporção

#Passo 4 - Proporção

prop.table(tabela_1)*100
## 
## Não usa     Usa 
##      35      65
prop.table(tabela_2)*100
## 
##   Encosta do Morro        Monte Verde Parque da Figueira 
##           30.83333           33.33333           35.83333

#Gráficos

#Passo 5 - Gráfico

pie(tabela_1)

pie(tabela_1,main= "Gráfico 1- famílias que usam o P.A.P")

pie(tabela_1,main= "Gráfico 1- famílias que usam o P.A.P",col = c("red","blue"))

pie(tabela_1,main= "Gráfico 1- famílias que usam o P.A.P",col = c("gold","bisque1"))

pie(tabela_2)

pie(tabela_2, main = "Gráfico 2- aonde moram as família")

pie(tabela_2, main = "Gráfico 2- aonde moram as família", col = c("salmon","plum1","tan1"))