load("C:/Users/Hearthz Gaming/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)
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_zebra()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_zebra()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("purple","blue"),
las = 2,
main= "Boxplot - Base de experiência por tipo 1 dos pokemons")As tabelas e o gráfico nesse estudo são da base de dados “df_pokemon.RData”,as variáveis escolhidas foram, base de experiência(quantitativa) e tipo 1 de pokemons(qualitativa).
Na tabela de cruzamento de dados, com a média e o desvio padrão, pode-se perceber que dentro dos 18 tipos de pokemons, o pokemon do tipo dragon é o que mais tem base de experiência dentre todos os pokemons, tendo uma diferença de um pouco mais de 24, em relação ao segundo tipo com mais experiência, os steel e mais de 31, em relaçao ao terceiro com mais enperiência, os do tipo flying, sendo esse ultimo tendo o maior desvio padrão de todos os pokemons.
Ainda na tabela de cruzamento de dados pode-se ver os três com menor base de experiência, sendo os do tipo bug sendo os com menos experiência seguidos dos poison e fighting. Sendo o fighting o mais concentrado em torno da média de todos os 18 pokemons.
Já dentro do gráfico, a principio, observa-se a grande maioria dos dados são assimetricos, onde apenas os pokemons do tipo dragon tem uma simetria, onde tem a mediana, os quartis, o minimo, maiores que os outros pokemons tendo o maior maximo mas divindo com outros tipos pokemons.Percebe-se ainda, que a mediana ,os quartis,e o maximo dos fighting são menores do que todos os outros.
Além disso, há presença de outliers superiores nos pokemons tipo normal, onde esses valores divergem do padrão.