Nos gráficos abaixo será possível verificar a divisão de restaurantes por bairro e tipo de comida que servem.

O gráfico “Restaurantes por bairro” mostra a distribuição dos restaurantes por bairro.

library(readxl)
restaurante <- read_excel("C:/Users/tauan/Desktop/Base_de_dados-master/restaurante.xlsx")
View(restaurante)

tabela1 <- table(restaurante$Bairro)

pie(tabela1, main = "Restaurantes por bairro")

Já no segundo gráfico, entitulado “Restaurantes por tipo” é possível observar a diversidade da culinária oferecida por esses restaurantes, com um foco maior em comidas Moderna, Mexicana e Portuguesa.

tabela2 <- table(restaurante$Tipo)

pie(tabela2, main= "Restaurantes por tipo")

Em termos percentuais, a divisão é encontrada nas tabelas abaixo.

prop.table(tabela1) *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
prop.table(tabela2) *100
## 
##       Chinesa  Churrascaria Frutos do Mar      Italiana      Japonesa 
##      4.807692      6.730769      3.846154      9.615385      1.923077 
##      Mexicana       Moderna      Pizzaria    Portuguesa   Vegetariana 
##     14.423077     27.884615      8.653846     17.307692      4.807692