Tipo de Restaurante

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

tabela <- table (restaurante$Tipo)
tabela

## 
##       Chinesa  Churrascaria Frutos do Mar      Italiana      Japonesa 
##             5             7             4            10             2 
##      Mexicana       Moderna      Pizzaria    Portuguesa   Vegetariana 
##            15            29             9            18             5

Através da tabela de tipos de restaurante, podemos fazer o seu gráfico de pizza.

pie(tabela, main="Tipo de Restaurante", col=c ("#c91e1e", "#420707", "#201087", "#2f9410", "#f8faf7", "#dbce1a", "#159ca1", "#a35715", "#628abf", "#816982"))

Podemos ver uma predominância de restaurantes de comida “moderna”, seguido por restaurantes de comida “mexicana” e “portuguesa”. Só posso imaginar que restaurantes que eu chamaria de “comida brasileira” são incluídos em comida “moderna”, porém não há esclarecimentos na base de dados. É uma surpresa, para mim, a quantidade de restaurantes de comida mexicana e portuguesa, porém talvez fosse esclarecido pela intenção da coleta ou por outro gráfico.