Carregar e resumir a base de dados
load("/cloud/project/df_pokemon.RData")
summary(df)
## id pokemon species_id height
## Min. : 1.0 Length:718 Min. : 1.0 Min. : 1.00
## 1st Qu.:180.2 Class :character 1st Qu.:180.2 1st Qu.: 6.00
## Median :359.5 Mode :character Median :359.5 Median : 10.00
## Mean :359.5 Mean :359.5 Mean : 11.41
## 3rd Qu.:538.8 3rd Qu.:538.8 3rd Qu.: 14.00
## Max. :718.0 Max. :718.0 Max. :145.00
## weight base_experience type_1 type_2
## Min. : 1.0 Min. : 36.00 Length:718 Length:718
## 1st Qu.: 95.0 1st Qu.: 65.25 Class :character Class :character
## Median : 280.0 Median :147.00 Mode :character Mode :character
## Mean : 568.2 Mean :141.55
## 3rd Qu.: 609.5 3rd Qu.:177.00
## Max. :9500.0 Max. :608.00
## attack defense hp special_attack
## Min. : 5.00 Min. : 5.00 Min. : 1.00 Min. : 10.00
## 1st Qu.: 53.00 1st Qu.: 50.00 1st Qu.: 50.00 1st Qu.: 45.00
## Median : 73.00 Median : 65.00 Median : 65.00 Median : 65.00
## Mean : 74.85 Mean : 70.67 Mean : 68.37 Mean : 68.47
## 3rd Qu.: 95.00 3rd Qu.: 85.00 3rd Qu.: 80.00 3rd Qu.: 90.00
## Max. :165.00 Max. :230.00 Max. :255.00 Max. :154.00
## special_defense speed color_1 color_2
## Min. : 20.00 Min. : 5.00 Length:718 Length:718
## 1st Qu.: 50.00 1st Qu.: 45.00 Class :character Class :character
## Median : 65.00 Median : 65.00 Mode :character Mode :character
## Mean : 69.09 Mean : 65.72
## 3rd Qu.: 85.00 3rd Qu.: 85.00
## Max. :230.00 Max. :160.00
## color_f egg_group_1 egg_group_2 url_image
## Length:718 Length:718 Length:718 Length:718
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## x y
## Min. :-49.152 Min. :-45.793
## 1st Qu.:-17.695 1st Qu.:-17.293
## Median : 0.705 Median : -0.628
## Mean : 0.000 Mean : 0.000
## 3rd Qu.: 15.905 3rd Qu.: 18.155
## Max. : 53.142 Max. : 46.593
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
Média e Desvio
df%>%select(type_1,attack)
## # A tibble: 718 × 2
## type_1 attack
## <chr> <int>
## 1 grass 49
## 2 grass 62
## 3 grass 82
## 4 fire 52
## 5 fire 64
## 6 fire 84
## 7 water 48
## 8 water 63
## 9 water 83
## 10 bug 30
## # … with 708 more rows
median(df$attack)
## [1] 73
# Podemos ver que a média de ataque dos Pokemons é de 73, isto pode ser um fator determinante na escolha de um Pokemon, ou na estratégia defensiva de outros.
summary(df$attack)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 5.00 53.00 73.00 74.85 95.00 165.00
desvio.padrao=sd(df$attack)
head(sd(df$attack))
## [1] 28.93704
# Apesar de próximos (25 e 30), não foi possível encontrar Pokemons com (28) de ataque.
Tabela de Variáveis
boxplot(attack~type_1,data = df,col=("#055E12"),
main="Modalidades de Ataque",xlab="Modalidade",ylab="Ataque")
# É possível observar uma grande variedade de ataques, sendo o "dragon" um dos mais fortes e "fairy" um dos menos eficientes.