Carregar base de dados e a biblioteca

library(readxl)
## Warning: package 'readxl' was built under R version 4.2.1
library(flextable)
## Warning: package 'flextable' was built under R version 4.2.1
library(dplyr)
## Warning: package 'dplyr' was built under R version 4.2.1
## 
## 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
load("C:/Users/17325701756/Desktop/Base_de_dados-master/df_pokemon.RData")

pokémon = df

View(pokémon)

Análise de uma variável quantitativa por grupos de uma variável qualitativa.

Tabela e barplot.

tabela = table(pokémon$attack,pokémon$type_1)
barplot(tabela)

Média, mediana e desvio padrão

 pokémon %>% select(attack,type_1) %>% 
  group_by(type_1) %>%
  summarise(média=mean(attack),
            mediana=median(attack),
            desvio_padrão=sd(attack)) %>% 
  flextable() %>% theme_tron()

Boxplot

boxplot(pokémon$attack ~ pokémon$type_1,
        col=c("blue","aliceblue","gold3", "brown", "green","cyan", "aquamarine","brown3","purple","aquamarine3","darkgreen","azure","coral4","black","darkorchid1","azure4","coral","bisque","bisque1"),
        main="Gráfico 1 - boxplot do ataque por tipo")

Análise dos dados

Correlacionei as variáveis “tipo 1” e “ataque” para avaliar quais tipos de pokemon tem um ataque mais forte.

No primeiro gráfico, podemos ver as médias, medianas e desvio padrão dos ataques por tipos. Se avaliada por esse quesito, O tipo de pokémon com a maior média de pontos no ataque é o “dragon”, com 102.62500 pontos e que tem mediana de 97.5 e desvio padrão de 29.64253.Caso avaliemos o tipo com maior mediana de pontos em ataque, temos o “fighting”, com 100, e média de 94.72000 e desvio padrão de 27.66394. Por último, o tipo “flying” é o que possui maior desvio-padrão, de 42.52450 e com média de 71.66667 e mediana de 70.0.

Pode-se avaliar, ainda, que todos os tipos de pokémon tem média acima de 60 pontos de ataque, mediana acima de 52 e desvio padrão acima de 19.