Introdução

A proposta da atividade é importar a base de dados “restaurante” e um fazer gráfico de pizza com uma variável qualitativa. Portanto, o primeiro passo foi importar essa base de dados

# PASSO 1 - Importação de dados do excel
library(readxl)
restaurante <- read_excel("C:/Users/luuan/Desktop/UNIRIO/estatistica/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>

Passo 2: para criar o gráfico eu criei uma tabela

# 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

Agora fiz uma proporção da tabela

# PASSO 3 - Proporção
prop.table(tabela_1) *100
## 
##       Chinesa  Churrascaria Frutos do Mar      Italiana      Japonesa 
##      4.807692      6.730769      3.846154      9.615385      1.923077 
##      Mexicana       Moderna      Pizzaria    Portuguesa   Vegetariana 
##     14.423077     27.884615      8.653846     17.307692      4.807692

Gráfico de pizza

# PASSO 4 - Gráfico de Pizza

pie(tabela_1,main = "Gráfico 1 - Tipo de Restaurante",col = c("royalblue","violetred","skyblue","green","yellow","red","pink","brown","purple","orange"))

Gráfico de Barras

como aprendi a fazer gráfico de barras hoje, também vou fazer nessa atividade.

# Passo 5 - Gráfico de Barras

barplot(tabela_1,main = "Gráfico 2 - Tipo de Restaurante",col = c("royalblue","violetred","skyblue","green","yellow","red","pink","brown","purple","orange"))

Conclusão e Análise dos Gráficos

Ambos os gráficos mostram o tipo de restaurante e a frequência em relação a eles.

O gráfico de pizza fica muito poluído quando se tem muitas fatias, particularmente eu não gostei.

Já o gráfico de barras fica melhor para essa situação, porém teve um erro em relação aos textos das colunas e não sei como ajustar. Resolvendo esse problema o gráfico de barra seria o mais adequado para essa situação.