load("C:/Users/Maysa Godoy/Desktop/Base_de_dados-master/df_pokemon.RData")
View(df)mean(df$speed)## [1] 65.72423
var(df$speed)## [1] 746.8025
sd(df$speed)## [1] 27.32769
Cruzamento de variáveis quantitativas por variáveis qualitativas.
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)
library(reactable)
df %>% select(speed,type_1) %>%
group_by(type_1) %>%
summarise(Média=round(mean(speed),2),
Desvio_Padrao=round(sd(speed),2)) %>%
flextable() %>% theme_tron_legacy()type_1 | Média | Desvio_Padrao |
bug | 60.06 | 32.23 |
dark | 75.39 | 25.05 |
dragon | 76.67 | 22.41 |
electric | 83.53 | 27.36 |
fairy | 48.59 | 23.31 |
fighting | 62.88 | 24.27 |
fire | 74.48 | 24.58 |
flying | 96.33 | 36.30 |
ghost | 60.83 | 27.54 |
grass | 59.89 | 25.81 |
ground | 62.13 | 27.45 |
ice | 61.87 | 23.75 |
normal | 69.66 | 26.99 |
poison | 63.57 | 22.63 |
psychic | 72.63 | 32.56 |
rock | 51.98 | 25.72 |
steel | 54.18 | 25.48 |
water | 65.01 | 22.61 |
df %>% select(speed,type_1) %>%
group_by(type_1) %>%
summarise(minimo=min(speed),
primeiro_quartil=quantile(speed,probs=0.25),
mediana=median(speed),
terceiro_quartil=quantile(speed,probs=0.75),
maximo=max(speed)) %>%
flextable() %>% theme_tron() type_1 | minimo | primeiro_quartil | mediana | terceiro_quartil | maximo |
bug | 5 | 36.00 | 57.0 | 85.00 | 160 |
dark | 35 | 59.50 | 70.0 | 95.75 | 125 |
dragon | 40 | 55.25 | 80.0 | 95.00 | 110 |
electric | 35 | 60.00 | 93.0 | 103.50 | 140 |
fairy | 15 | 30.00 | 45.0 | 60.00 | 99 |
fighting | 25 | 45.00 | 60.0 | 80.00 | 118 |
fire | 20 | 60.25 | 78.5 | 94.50 | 126 |
flying | 55 | 83.00 | 111.0 | 117.00 | 123 |
ghost | 20 | 36.50 | 56.0 | 82.00 | 110 |
grass | 10 | 40.00 | 56.5 | 77.50 | 120 |
ground | 10 | 40.00 | 60.0 | 87.25 | 120 |
ice | 25 | 47.50 | 59.0 | 79.50 | 110 |
normal | 5 | 50.00 | 70.0 | 90.00 | 125 |
poison | 25 | 50.00 | 62.5 | 77.00 | 130 |
psychic | 20 | 45.00 | 71.0 | 99.25 | 150 |
rock | 10 | 33.75 | 50.0 | 68.50 | 130 |
steel | 23 | 30.75 | 50.0 | 70.00 | 108 |
water | 15 | 50.00 | 65.0 | 81.00 | 122 |
boxplot(speed~type_1, data=df,
col=c("lightblue","royalblue"),
main="Gráfico 1 - Boxplot da velocidade por tipo de pokemon")As variáveis escolhidas foram “speed” e “type_1” que apresentam os dados sobre a velocidade e o tipo de pokemon. Inicialmente, observando a velocidade dos pokemosn, é possível afirmar que os pokemons do tipo “flying” são os mais rápidos devido à média de 96,33. Em primeira análise, cabe afirmar que a média geral de velocidade é 65,72, contando com uma variância de 746,80, o que significa que os números estão espalhados e que há uma grande dispersão. Além disso, o desvio-padrão de 27,32 indica que os dados não são homogêneos.
O tipo de pokemon da variável “type_1” que possui a maior média de velocidade é o “flying”, que, coincidentemente, conta com o maior desio-padrão, sendo 36,30, demonstrando que mesmo os números sendo altos, eles estão com um grau de dispersão alto. Por outro lado, o pokemon do tipo “fairy” é o que apresenta a menor média, 48,52, e o seu desvio-padrão é um dos menores, 23,31, indicando que é um dos pokemons com os dados mais uniformes em relação aos dos outros tipos.
O pokemon “bug” tem o menor mínimo e o “flying” o maior, apresentando, também, a maior mediana. Além do mais, o pokemon do tipo “bug” é o que possui o maior máximo. No boxplot, é possível observar toda a visualização de mínimo, primeiro quartil, mediana, terceito quartil e máximo de todos os tipos de pokemon num único gráfico. Os tipos “poison”, “rock” e “bug” apresentam um outlier cada, ou seja, um valor muito discrepante da normalidade. Ademais, o pokemon “fire”, no boxplot, é o mais simétrico quando visualizado.