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

Vou colocar as bases de dados

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

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

# Carregar o arquivo do CSV
library(readr)
Familias2 <- read_delim("C:/Users/favor/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(Familias2$p.a.p)

tabela_titanic <- table(Titanic$Sexo)

tabela_basemunicipios <- table(BasesMunicipios$Regiao)

tabela_fam
## 
## Não usa     Usa 
##      42      78
tabela_titanic
## 
##  Feminino Masculino 
##       470      1730
tabela_basemunicipios
## 
##   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_basemunicipios)

pie(tabela_titanic)

Colocando a cor e o título

# mudando a cor e o titulo
pie(tabela_fam, col=c("#e37fcf","#73ced1"),main="gráfico 1 - meu primeiro gráfico")

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

pie(tabela_basemunicipios,col=c("whitesmoke","purple","steelblue3","red","blue","turquoise4","seagreen3","yellow"),main="gráfico 3 - municipios")