#Base de dados

load("C:/Users/Thais/OneDrive/Área de Trabalho/df_pokemon.RData")

#Comandos

library(flextable)
library(dplyr)
## Warning: package 'dplyr' was built under R version 4.1.3
## 
## 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(readxl)
## Warning: package 'readxl' was built under R version 4.1.3

#Relacionando as variáveis qualitativa e quantitativa

df %>% select(type_1,attack) %>%
  group_by(type_1) %>%
  summarise(Média=mean(attack), Mediana=median(attack), DP=sd(attack), Mínimo=min(attack), Máximo=max(attack)) %>% flextable() %>% theme_vanilla()

#Gráfico do resultado dos dados

boxplot(df$attack~ df$type_1,
        xlab = "Tipos de Pokemon",
        ylab = "Ataque",
        col = c("#ebbee8"))

#Interpretação do gráfico

Foram analisados os tipos de poder dos pokemons e sua influência na performance de ataque de cada um. Para resolução dos dados finais foram observados a média, a mediana, o desvio padrão, o mínimo e o máximo de ataque.

A partir dessa construção de análise, foi possível perceber resultados médios e balanceados sobre a performance de cada tipo de poder dos pokemons, e em sequência foram representados visualmente no gráfico.

Portanto, o tipo de poder com maior média de ataque foi o dragon e o com menor foi o psychic.