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

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

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

# Carregar o arquivo do CSV
library(readr)
Familia <- read_delim("C:/Users/thaya/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()
## )
View(Familia)

Aqui vou colocar 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_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
tabela_titanic
## 
##  Feminino Masculino 
##       470      1730

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

# gerando as pizzas basicas
pie (tabela_fam)

pie (tabela_munic)

pie (tabela_titanic)

Colocando a cor e o título

# mudando a cor e o título
pie (tabela_fam,col=c("red","blue"), 
     main = "grafico 1")

pie (tabela_titanic, col =c("#62a381","wheat2"),
     main = "gráfico 2")

pie(tabela_munic, col =c("whitesmoke","purple","steelblue3",
                         "red","blue","turquoise4",
                         "seagreen3","yellow"))