Carregando a base de dados

load("~/Base_de_dados-master/Base_de_dados-master/df_pokemon.RData")

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
library(flextable)
library(reactable)

Tabela variavel qualitativa x quantitativa

df %>% select(defense,type_1) %>%
  group_by(type_1) %>% 
  summarise(Média=round(mean(defense),2),
            Desvio_Padrao=round(sd(defense),2)) %>% flextable() %>% theme_vader()

Box-plot para uma variavel quantitativa por grupos de uma variável qualitativa

boxplot(defense~type_2, data = df,
        col=c("red","yellow"), main="type 2 x def",
        horizontal=F)

Escolhendo a variavel quantitativa “defense” e as qualitativas “type 1” e “type 2”para fazer essa analise de dados, podemos chegar as seguintes conclusoes

Na tabela, usamos o tipo primario como parametro qualitativo e os pontos de base defense como quantitativo. Assim, vemos que o tipo steel tem uma media de 119.41 pontos de defesa, uma media muito maior que a dos demais tipos; O tipo rock vem com 98.5 pontos de defesa, sendo o segundo com a maior media defensiva. Em contrapartida, temos o tipo normal como o mais fraco defensivamente, tendo míseros 57.8 pontos de defesa e o tipo electric vindo logo depois com 59.08.

No grafico, usamos o tipo secundario como variavel qualitativa e a defesa novamente como parametro quantitativo. Observando o grafico, notamos que claramente uma tendencia de estabilidade na maioria dos tipos, significando que os seus valores maximos estao quase no mesmo valor, que seria em torno de 110 pontos, menos o tipo rock que possui sua media de defesa proximo desse valor.

Podemos concluir que para se escolher um pokemon para ser bem defensivo, sem considerar fraquezas e resistencias e usando meramente os numeros dos base stats, a melhor tipagem deve ser steel/rock, enquanto ele nunca deve ser normal/electric para essa finalidade