Introdução

A proposta da terceira atividade é importar a base de dados restaurante e atraves desses dados fazer um grafico de pizza com uma variável qualitativa. Assim, o primeiro passo foi importar essa base de dados.

# PASSO 1 - Importação de dados do excel
library(readxl)
restaurante <- read_excel("C:/Users/manuc/Desktop/Base_de_dados-master/restaurante.xlsx")
View(restaurante)

Criei uma tabela para montar o gráfico

# PASSO 2 - Criar uma Tabela

tabela_1 <- table(restaurante$Bairro)
tabela_1
## 
##              Bangu    Barra da Tijuca           Botafogo             Centro 
##                  5                  6                  7                  9 
## Ilha do Governador          Madureira    Marechal Hermes              Méier 
##                  8                  8                  8                  6 
##              Penha           Realengo             Tijuca               Urca 
##                  9                 12                 13                 13

Logo depois fiz uma proporção da tabela

# PASSO 3 - Proporção
prop.table(tabela_1) *100
## 
##              Bangu    Barra da Tijuca           Botafogo             Centro 
##           4.807692           5.769231           6.730769           8.653846 
## Ilha do Governador          Madureira    Marechal Hermes              Méier 
##           7.692308           7.692308           7.692308           5.769231 
##              Penha           Realengo             Tijuca               Urca 
##           8.653846          11.538462          12.500000          12.500000

Criei o gráfico de pizza

# PASSO 4 - Gráfico de Pizza

pie(tabela_1,main = "Gráfico 1 - Bairro com Restaurante",col = c("#77d1a6","#6cebad","#8ca1cf","#7d4dab","#f58ef3","#695c62","#a3101a","#f8fa82","#f29e5a","#45183a", "#48755b", "#5c230f"))

Criei o gráfico de barras

# Passo 5 - Gráfico de Barras

barplot(tabela_1,main = "Gráfico 2 -  Bairro com Restaurante",col = c("#77d1a6","#6cebad","#8ca1cf","#7d4dab","#f58ef3","#695c62","#a3101a","#f8fa82","#f29e5a","#45183a", "#48755b", "#5c230f"))

Conclusão

Ambos os graficos apresentam os bairros com maiores quantidades restaurantes. Sendo que o grafico de barras fica mais nitido a visualização dos dados.