Meu Primeiro Gráfico de Pizza

Introdução

# PRIMEIRO PASSO

library(readxl)
Familias <- read_excel("C:/Users/ferna/Downloads/Base_de_dados-master/Familias.xls")
View(Familias)

tabela feita

# SEGUNDO PASSO

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

# PASSO 3

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

tabela multiplicada por 100

# PASSO 4

prop.table(tabela_1)*100

## 
## Não usa     Usa 
##      35      65

primeiro grafico de pizza

# PASSO 5
 
pie(tabela_1)

pie(tabela_1,main = "Famílias que usam PAP")

pie(tabela_1,main = "Famílias que usam PAP",col = c("red","grey"))

gráfico pizza com 3 cores

# PASSO 6

tabela_2 <- table(Familias$local)
pie(tabela_2)

pie(tabela_2,main = "local")

pie(tabela_2,main = "local",col = c("blue","yellow","red"))