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.

# PASSO 1 - Importação de dados do excel
library(readxl)
## Warning: package 'readxl' was built under R version 4.0.5
Fam <- read_excel("C:/Users/Hp/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

aqui eu vou continuar escrevendo o meu texto.

A minha tabela

aqui fiz uma tabela.

# PASSO 2 - Criar uma tabela 

tabela_1 <- table(Fam$p.a.p)
tabela_1
## 
## Não usa     Usa 
##      42      78
# PASSO 3 - Formatação da tabela
# library(flextable)
# library(dplyr)

depois fiz uma tabela de proporção

# PASSO 4 - Proporção
prop.table(tabela_1)*100
## 
## Não usa     Usa 
##      35      65

depois disso, finalmente alguns 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("#06285c","#d8dde6"))

Conclusão

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