Aqui vamos carregar e importar as bases de dados e gerar os gráficos de pizza!

Vou colocar as bases de dados

#Carregar arquivo do RDATA
load("C:/Users/dinho/Desktop/Base_de_dados-master/Titanic.RData")

#Carregar o arquivo do Excel
library(readxl)
BasesMunicipios <- read_excel("C:/Users/dinho/Desktop/Base_de_dados-master/BasesMunicipios.xlsx")
View(BasesMunicipios)

#Carregar o arquivo do CSV
library(readr)
Familia <- read_delim("C:/Users/dinho/Desktop/Base_de_dados-master/Familias2.csv", 
                      ";", escape_double = FALSE, locale = locale(encoding = "ISO-8859-1"), 
                      trim_ws = TRUE)
## 
## -- Column specification --------------------------------------------------------
## cols(
##   familia = col_double(),
##   local = col_character(),
##   p.a.p = col_character(),
##   instr = col_character(),
##   tam = col_double(),
##   renda = col_character()
## )

Aqui eu vou fazer as tabelas.

# gerando as tabelas
tabela_fam <- table(Familia$p.a.p)
tabela_titanic <- table(Titanic$Sexo)
tabela_munic <- table(BasesMunicipios$Regiao)

tabela_fam
## 
## Não usa     Usa 
##      42      78
tabela_titanic
## 
##  Feminino Masculino 
##       470      1730
tabela_munic
## 
##   Baixadas Litorâneas Centro-Sul Fluminense           Costa Verde 
##                    12                    10                     3 
##         Médio Paraíba         Metropolitana   Noroeste Fluminense 
##                    12                    19                    13 
##      Norte Fluminense               Serrana 
##                     9                    14

Aqui eu vou fazer os gráficos básicos.

# gerando as pizzas basicas
pie(tabela_fam)

pie(tabela_titanic)

pie(tabela_munic)

Colocando a cor e o título.

# mudando de cor e o título
pie(tabela_fam,col=c("red","blue"),main="gráfico 1 - meu primeiro gráfico")

pie(tabela_titanic, col=c("darkblue","royalblue"), main= "gráfico 2 - titanic")

pie(tabela_munic, col=c("#7ed660","darkblue","royalblue","red","blue","turquoise4","yellow","wheat2"))