Minha interpretação sobre o gráfico

Ao analisar o gráfico é possível visulizar que a comida mais procurada é a moderna e a que recebe menor procura é a japonesa. A segunda comida mais procurada é a mexicana e logo após, a portuguesa. As comidas italianas, chinesas, vegetarianas, frutos do mar e churrascarias são poucos procuradas se comparadas a comida moderna, mexicana e portuguesa.

# 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>
# PASSO 2 - CRIAR UMA TABELA


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")