Gráficos

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

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

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


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

Aqui eu vou gerer as tabelas

#Gerando as tabelas
table(Familias2$p.a.p)

## 
## Não usa     Usa 
##      42      78

table(Titanic$Sexo)

## 
##  Feminino Masculino 
##       470      1730

table(BasesMunicipios$Regiao)

## 
##   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_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

Aqui eu vou fazer os gráficos básicos

#Gerando as pizzas básicas
pie(tabela_fam)

pie(tabela_titanic)

pie(tabela_munic)

Colocando a cor e o título

#Mudando a cor
pie(tabela_fam,col = c("red","blue"),main = "gráfico 1 - Meu primeiro gráfico")

pie(tabela_titanic, col = c("green","yellow"), main = "grafico 2 - Titanic")

pie(tabela_munic, col = c("green","yellow","red","blue","purple","violet","pink","whitesmoke"),main = "Gráfico 3 - Municípios")