Introdução

Aqui vou falar sobre gráficos de pizza, tabelas e proporções.

Vamos começar com a importação dos dados para o RMarkdown.

library(readxl)
Fam <- read_excel("C:/Users/mtbor/Downloads/Base_de_dados-master/Familias.xls")
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

Aqui eu vou continuar escrevendo o meu texto.

A minha tabela

aqui fiz uma tabela.

tabela_1 <- table(Fam$p.a.p)
tabela_1
## 
## Não usa     Usa 
##      42      78
library(flextable)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

depois fiz uma tabela de proporção

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

depois disso, finalmente alguns gráficos.

pie(tabela_1)

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

o mesmo com o local de moradia

tabela_2 <- table(Fam$local)
tabela_2
## 
##   Encosta do Morro        Monte Verde Parque da Figueira 
##                 37                 40                 43
pie(tabela_2, main="Gráfico 2 - local de moradia", col=c("red","green","blue"))

#Conclusão

Aqui poderia ter a conclusão do meu relatório…