Tabela com dados de restaurantes

library(readxl)

restaurante <- read_excel("C:/Users/izabe/Desktop/Base_de_dados-master/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 dos locais de restaurantes

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

#Gráfico de pizza

pie(tabela_1)

pie(tabela_1,main = "Gráfico local dos restaurantes",col = c("red","violetred4","wheat","yellow","steelblue2","orangered","hotpink","green","grey7","coral4","tomate"))