Interpretação do Gráfico

A partir da vizualização do gráfico, podemos perceber a grande diversidade de restaurantes existentes. Além disso, é perceptível que a culinária moderna, portuguesa e mexicana possuem um maior número de restaurantes, sendo a culinária japonesa a menor entre todos.

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","pink","green","white","yellow","gold", "purple"))