load("C:/Users/admin/Desktop/Base_de_dados-master/df_pokemon.RData")
library(flextable)
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
df %>% select(base_experience,type_1) %>% group_by(type_1) %>% summarise(MEDIA=round(mean(base_experience),2),DESVIO_PADRAO=round(sd(base_experience),2)) %>%
flextable() %>% theme_tron()
type_1 | MEDIA | DESVIO_PADRAO |
bug | 117.90 | 60.65 |
dark | 139.50 | 70.81 |
dragon | 197.25 | 91.20 |
electric | 148.64 | 69.56 |
fairy | 142.53 | 79.42 |
fighting | 129.84 | 58.54 |
fire | 151.57 | 72.89 |
flying | 165.67 | 107.60 |
ghost | 139.04 | 71.09 |
grass | 137.95 | 67.59 |
ground | 137.80 | 72.38 |
ice | 148.17 | 71.33 |
normal | 137.97 | 89.58 |
poison | 125.68 | 61.96 |
psychic | 158.76 | 82.35 |
rock | 133.57 | 64.35 |
steel | 173.18 | 78.31 |
water | 137.36 | 68.25 |
df %>% select(base_experience,type_1) %>%
group_by(type_1) %>%
summarise(minimo=min(base_experience),
primeiro_quartil=quantile(base_experience,probs=0.25),
mediana=median(base_experience),
terceiro_quartil=quantile(base_experience,probs=0.75),
maximo=max(base_experience)) %>%
flextable() %>% theme_tron()
type_1 | minimo | primeiro_quartil | mediana | terceiro_quartil | maximo |
bug | 39 | 61.00 | 134.0 | 167.50 | 270 |
dark | 44 | 69.50 | 151.5 | 177.50 | 306 |
dragon | 60 | 144.00 | 207.5 | 270.00 | 306 |
electric | 41 | 70.50 | 150.5 | 192.50 | 261 |
fairy | 44 | 68.00 | 142.0 | 184.00 | 306 |
fighting | 42 | 61.00 | 159.0 | 166.00 | 227 |
fire | 50 | 70.75 | 153.5 | 191.50 | 306 |
flying | 49 | 118.00 | 187.0 | 224.00 | 261 |
ghost | 55 | 64.50 | 159.0 | 173.00 | 306 |
grass | 36 | 64.00 | 142.0 | 183.50 | 270 |
ground | 53 | 66.00 | 145.5 | 177.25 | 302 |
ice | 50 | 61.00 | 159.0 | 182.00 | 261 |
normal | 38 | 62.00 | 144.0 | 169.00 | 608 |
poison | 49 | 64.75 | 140.5 | 172.00 | 241 |
psychic | 40 | 66.25 | 162.0 | 231.00 | 306 |
rock | 56 | 71.00 | 140.5 | 173.50 | 270 |
steel | 60 | 136.50 | 164.0 | 237.75 | 306 |
water | 40 | 65.00 | 151.0 | 175.00 | 306 |
boxplot(base_experience~type_1, data = df,
col=c("skyblue","pink"),
las = 2,
main= "Experiência Base por Pokemons Tipo 1")
Analisando os 18 tipos de Pokémons, podemos perceber que há grandes vantagens na base de experiência entre alguns tipos os quais podem se destacar em comparação aos outros (uma grande falta de balanceamento pois os Pokémons do tipo Dragão são os que possuem melhores status de batalha) Por exemplo, os Pokémons do tipo Dragão possuem a maior base de experiência e estão com uma diferença de 24, para o tipo Ferro, que ocupa o segundo maior status.
Os Pokémons do tipo Bug são os que possuem menor base de experiência, juntamente dos Fighting e Poison. A diferença entre o maior (Dragon) e o menor (Bug) é de 79, uma incrível desvantagem para os tipo inseto.
No Boxplot podemos analisar que a base de experiência no geral não possui muita diferença entre si, em sua grande maioria estão entre 100 e 200 de Base Experience. Porém, os Pokémons do tipo Dragon, Steel, Psychic e Flying demonstraram ser mais fora da curva que os demais, aproximando-se dos 300 de Base Exp.