Tabela e gráfico de pizza para a variável Bairro da base de dados “restaurante.xlsx”.

Carregando a base da dados:

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

Carregando a tabela da variável:

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

Carregando o gráfico de pizza da variável:

pie(tabela_1, 
    main="Bairro", 
    col=c("#ff0000","#11ff00","#0037ff","#ffff00","#00ffd5","#bb00ff","#ffa600",
          "#b7ff00","#00ff95","#0055ff","#ff0088","#6f00ff"))

Conclusão:

Podemos concluir através da tabela da variável nominal “Bairro” que Bangu é o bairro que tem menor quantidade de restaurantes. Pelo gráfico de pizza, observamos que os bairros da Urca, Tijuca e Realengo apresentam maior quantidade de restaurantes, tendo juntos uma proporção maior que 25% do total da amostra.