Carregando a base de dados:

load("C:/Users/louiz/Downloads/Base_de_dados-master/df_pokemon.RData")
View(df)

Carregando as bibliotecas que serão utilizadas:

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

Serão observadas a média, mediana e o desvio padrão na base de dados recomendada para essa atividade e então será trabalhada uma relação entre uma variável quantitativa e uma qualitativa.

df %>%
  select(defense,type_1) %>% 
  group_by(type_1) %>%
  summarise(média=mean(defense),
            mediana=median(defense),
            desvio_padrão=sd(defense),
            mínimo=min(defense),
            máximo=max(defense)) %>% flextable() %>% theme_box()

Conclusões obtidas:

- O tipo steel tem a melhor defesa em média dentre todas as espécies.

- O tipo steel também tem os melhores níveis de defesa quando observamos a mediana dessa espécie.

- O tipo fighting tem o desvio padrão mais baixo, sendo a espécie com níveis mais equilibrados.

- O tipo normal teve o menor número avaliado sendo que um dos pokemons registrou apenas 5 de defesa.

- O tipo Bug é onde temos o nível mais alto de defesa na base de dados, com um dos pokemons registrando 230.

Boxplot

boxplot(df$weight ~ df$type_1,
        col=c("orange","red","navy blue", "yellow", "green", "grey", "pink"),
        main="Gráfico 2 - boxplot Peso x Tipo de cada Pokemon")

Conclusões

- O tipo ground obteve um resultado muito acima da média de peso com incríveis mais de 8000.

- Apenas os tipos Poison, Dragon e Rock não registraram outliers

- O tipo Steel tem o maior desvio padrão.

- Há um empate entre os tipos Ghost e Fairy pelo registro de peso mínimo.

- O tipo flying é o que tem a mediana mais próxima do 3º e último quartil.