Minha Interpretação sobre o Gráfico

Analisando o gráfico, é possível concluir que a comida moderna é a mais requisitada, enquanto a japonesa acaba sendo a de menor interesse. A comida mexicana e a portuguesa são as mais demandadas depois da moderna. Logo atrás, é possível ver que pizzaria e italiana também possuem um nível bom de demanda. Já Frutos do Mar, Churrascaria, Chinesa e Vegetariana, estão entre as menos requisitadas, atrás apenas da comida japonesa.

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

tabela_01 <- table(restaurante$Tipo)
library(flextable)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
pie(tabela_01)

pie(tabela_01,main = "Tipos de restaurante")

pie(tabela_01)

pie(tabela_01,main = "Tipos de restaurante", col = c("red","blue", "gray","black","brown","green","white","purple","gold", "orange"))