Aula02

Criando a base de dados

load ("C:/Users/vitor/Desktop/Base_de_dados-master/Titanic.RData")

#Carregar arquivo Excell
library(readxl)
BasesMunicipios <- read_excel("C:/Users/vitor/Desktop/Base_de_dados-master/BasesMunicipios.xlsx")

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

Criando as tabelas

#Criando objetos
tabela_fam <- table(Familia$p.a.p)
tabela_titanic <- table(Titanic$Sexo)
tabela_munic <- table(BasesMunicipios$Regiao)

Gerando os gráficos de pizza

#Gerando gráfico de pizzas básicas
pie(tabela_fam)

pie(tabela_titanic)

pie(tabela_munic)

Mudando as cores

#Mudando a cor
pie(tabela_fam, col=c("#54a10d","#8c14c4"), #Usando o número hexágonal do Google #ffffff
    main = "gráfico 1 - meu primeiro gráfico")

pie(tabela_titanic, col = c("red", "blue"), main = "gráfico 2 - Titanic")

pie(tabela_munic, col = c(1,2,3,4,5,6,7,8), #Usando os números da lista Colors()
    main = "Gráfico 3 - Municípios")