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
Introdução
No relatório a seguir, serão analisados dados referentes aos ataques dos tipos de Pokémon. Por meio do cruzamento de informações, será definida a viabilidade dos tipos de Pokémon em combate.
Tabela
Tabela relacionando os tipos de Pokémon, o ataque médio de cada tipo, e o desvio padrão dos ataques.
table_1 <- df %>% select(type_1, attack) %>%
group_by(type_1) %>%
summarise(media_attack = round(mean(attack), 2),
desvio_padrao_attack = round(sd(attack), 2)) %>%
data.frame() %>% flextable()
table_1 <- bg(table_1, bg = '#c55252', part = 'header')
table_1 <- bg(table_1, bg = '#deded5', part = 'body')
table_1 <- set_header_labels(table_1, type_1 = 'Tipo',
media_attack = 'Ataque Medio',
desvio_padrao_attack = 'Desvio Padrao')
table_1 <- bg(table_1, i = ~ media_attack > 90, bg = "#decd7b")
table_1 <- bg(table_1, i = ~ desvio_padrao_attack >= 30.77, bg = "pink")
table_1
Tipo | Ataque Medio | Desvio Padrao |
bug | 65.22 | 30.74 |
dark | 86.25 | 24.34 |
dragon | 102.62 | 29.64 |
electric | 67.78 | 25.15 |
fairy | 61.53 | 29.75 |
fighting | 94.72 | 27.66 |
fire | 81.61 | 25.30 |
flying | 71.67 | 42.52 |
ghost | 66.65 | 25.29 |
grass | 70.91 | 24.08 |
ground | 91.30 | 28.62 |
ice | 70.70 | 25.94 |
normal | 71.73 | 29.30 |
poison | 74.68 | 19.63 |
psychic | 60.22 | 30.77 |
rock | 88.17 | 32.58 |
steel | 83.55 | 24.61 |
water | 71.05 | 25.03 |
A partir dos dados da tabela, evidencia-se que os 3 tipos de Pokémon com maior ataque médio são, respectivamente: Dragão, Lutador e Terrestre. Diante disso, nota-se que esses tipos de Pokémon tendem a ter um ataque superior, já que a média do ataque dos Pokémon desses grupos é maior que a observada em outros.
Por outro lado, os 3 tipos de Pokémon com maior desvio padrão são, respectivamente: Voador, Pedra e Psíquico. O que indica discrepância entre os ataques dos Pokémon desses tipos, ou seja, os ataques divergem bastante entre si. Nessa situação, é possível que existam dados de ataques baixos e altos no mesmo grupo, tornando o conjunto de dados pouco uniforme.
É válido demonstrar, também, o desempenho do tipo Pedra neste estudo. O grupo do tipo Pedra possui o 4º maior ataque médio dentre os tipos analisados, cerca de 88,17 pontos de ataque. Somado a isso, o tipo Pedra apresenta o 2º maior desvio padrão entre os ataques registrados, aproximadamente 32,58. Em tese, isso indica que o conjunto dos pontos de ataque dos Pokémon desse tipo é abranjente e pouco homogêneo. Apesar disso, apresenta um ataque médio elevado, o que denota um englobamento de ataques amplos, distantes entre si, e, em geral, elevados.
Boxplot
O gráfico boxplot abaixo servirá como suporte para analisar as informações expostas e desenvolvidas no tópico anterior, verificando as informações.
boxplot(df$attack ~ df$type_1,
col = c(cor(18)),
main = 'Ataque dos Pokémon x Tipos de Pokémon',
ylab = 'Ataque dos Pokémon',
xlab = '',
outcol = '#c55252',
outpch = 19,
boxwex = 0.7,
las = 3)

Nota-se, no boxplot, que as 3 maiores medianas são dos tipos Lutador, Dragão e Pedra, respectivamente. Analisando a amplitude desses grupos, é possível perceber que o tipo Dragão é pouco abrangente, apresentando baixa variabilidade e, consequentemente, boa previsibilidade de valores de ataque.
Em contraponto, o grupo dos Pokémon de tipo Pedra apresenta valores amplos, dificultando a previsibilidade, e o maior ataque registrado, superando, inclusive, os outliers presentes em outros grupos.
Quanto ao tipo Lutador, é o que apresenta a maior mediana dos valores de ataque registrados e a menor amplitude, o que favorece a seleção aleatória de Pokémon, pois apresenta maior consistência entre os valores de ataque, os quais tendem a ser elevados.