Minha interpretação sobre o gráfico

A culinária moderna é, disparadamente, a que possui maior procura. Em seguida, entre as mais procuradas tempos a comida portuguesa e a mexicana. As comidas menos procuradas, acredita-se que por conta do alto custo, são as comidas japonesas frutos do mar. Outras comidas que também possuem uma procura bem menor que a moderna é a chinesa, a vegetariana e o churrasco.

# PASSO 1 - Importação de dados do excel
library(readxl)
restaurante <- read_excel("C:/Users/carlo/Downloads/restaurante.xlsx")
head(restaurante)
## # A tibble: 6 x 8
##   Nome       Bairro      Tipo     Avaliador `Pontuacao restau~ `Pontuacao servi~
##   <chr>      <chr>       <chr>        <dbl>              <dbl>             <dbl>
## 1 Uchi       Centro      Moderna          1                9.8               5.5
## 2 Congress   Urca        Moderna          1                9.7               9  
## 3 Franklin ~ Bangu       Churras~         1                9.5               8.5
## 4 Uchiko     Realengo    Moderna          1                9.4               5  
## 5 Jeffrey's  Ilha do Go~ Moderna          1                9.4               5  
## 6 Fino       Realengo    Moderna          1                9.3               8.5
## # ... with 2 more variables: Pontuacao ambiente <dbl>, Preco <dbl>
tabela_1 <- table(restaurante$Tipo)
tabela_1
## 
##       Chinesa  Churrascaria Frutos do Mar      Italiana      Japonesa 
##             5             7             4            10             2 
##      Mexicana       Moderna      Pizzaria    Portuguesa   Vegetariana 
##            15            29             9            18             5
# PASSO 5 - Gráfico de pizza 
pie(tabela_1)

pie(tabela_1,main = "Gráfico 1 - Análise de uma variável qualitativa")