load ("C:/Users/usuario/Desktop/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)

A partir da base de dados “df.Rdata”, peguei os status de velocidade, de forma a continuá-los analisando da atividade 5, e os agrupei pelo primeiro “tipo” dos diversos Pokémon, fazendo a média e desvio padrão dos status de velocidade para cada.

df %>% select(type_1, speed) %>% group_by(type_1) %>% summarise (media=round(mean (speed),1),desvio.padrao=round(sd (speed),1)) %>% data.frame() %>% flextable()

Pode-se notar que a maioria dos tipos, 15 de 18, tem o desvio-padrão bem parecido, entre 22.6 e 27.4 pontos de velocidade, tendo os diferentes tipos de Pokémon, portanto, quase a mesma heterogeneidade de velocidades entre seus Pokémon. As exceções são os tipos: voador, psíquico e inseto, os três grupos significativamente mais heterogêneos que os outros.

Quanto a média, vemos que os voadores e elétricos são os Pokémon, em geral, mais rápidos, e fada, pedra e aço, os mais lentos. 9 dos 18 tipos tem suas médias de velocidade entre 59.9 e 69.7, menos de 10 pontos de diferença. As médias dos 4 tipos restantes se encontram entre 72.6 e 76.7, estando acima da maioria porém ainda significativamente abaixo dos dois tipos mais rápidos.

boxplot(speed~type_1, data=df)

O gráfico Boxplot demonstra algumas diferenças não percebidas nos dados anteriores, com os insetos possuindo os limites mais amplos, e inclusive possuindo o Pokémon mais rápido como outlier.

O tipo voador possui limite mínimo alto, no nível das medianas de vários outros tipos, e a mediana mais alta, além do limite máximo mais curto entre os tipos, indicando que a maior parte de seus integrantes se encontram nas maiores velocidades.

Apesar das médias semelhantes dos tipos de rocha e aço, vistas na tabela, podemos ver no gráfico que os Pokémon de aço tem um limite mínimo menor, e os de rocha contam com um outlier alto, aumentando sua média.