Aqui vamos carregar e improtar as bases de dados e gerar os rgáficos de pizza!

Vou colocar as bases de dados

# Carregando RDATA
load("C:/Users/andre/Desktop/Unirio 2020.1/5f - Estatistica - Steven/Base_de_dados-master/Titanic.RData")

# carregando EXCEL
library(readxl)
Munic <- read_excel("C:/Users/andre/Desktop/Unirio 2020.1/5f - Estatistica - Steven/Base_de_dados-master/BasesMunicipios.xlsx")

# carregando CSV
library(readr)
Familias2 <- read_delim("C:/Users/andre/Desktop/Unirio 2020.1/5f - Estatistica - Steven/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.

# Criar tabela
table_fam <- table(Familias2$p.a.p)
table_titanic <- table(Titanic$Sexo)
table_munic <- table(Munic$Regiao)

# Mostrar no console
table_fam
## 
## Não usa     Usa 
##      42      78
table_titanic
## 
##  Feminino Masculino 
##       470      1730
table_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.

pie(table_fam)

pie(table_munic)

pie(table_titanic)

Cololocando cores e títulos nos gráficos

pie(table_fam, col = c("red","blue"), main = " meu 1º gráfico de pizza")

pie(table_munic, col = c("red", "Green", "blue",
                         "gray", "black", "darkblue",
                         "pink", "purple"), main = "Municipios/Região")

pie(table_titanic)

Aqui vou terminar meu relatório.