Primeiro momento: importar as bases e carregar no R para manipulação.

#Carregar arquivo do RDATA
load("C:/Users/loren/Downloads/Estatistica/Base_de_dados-master/Titanic.RData")

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

#Carregar arquivo do CSV
library(readr)
Familias2 <- read_delim("C:/Users/loren/Downloads/Estatistica/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(Familias2)

Com as bases carregadas, vamos chamar as tabelas.

# Gerando as tabelas
tabela_fam <- table(Familias2$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

Com as tabelas criadas, vamos montar os gráficos, neste primeiro momento usaremos o modelo “Pie” ou pizza.

# Gerando pizzas básicas
pie(tabela_fam)

pie(tabela_titanic)

pie(tabela_munic)

com as pizzas carregadas, vamos personalizá- las:

# Mudando a cor e atribuindo título
pie(tabela_fam,col = c("purple","light green"),main = "Gráfico 01 - Meu Primeiro Gráfico")

pie(tabela_titanic,col = c("light pink","gray"),main = "Gráfico 02 - Meu Segundo Gráfico")

pie(tabela_munic,col =c("#68d4c8","#3a8c83","#119c8c","#11f5db","#11d7f5","#2699ab","#a4eaf5","#a4b8f5"),
    main = "Gráfico 03 - Testando Cores")