Carregar base de dados df_pokemon

load("C:/Users/gabri/Desktop/Base_de_dados-master/df_pokemon.RData")

Inspeção das 22 variáveis presentes

str(df)
## Classes 'tbl_df', 'tbl' and 'data.frame':    718 obs. of  22 variables:
##  $ id             : num  1 2 3 4 5 6 7 8 9 10 ...
##  $ pokemon        : chr  "bulbasaur" "ivysaur" "venusaur" "charmander" ...
##  $ species_id     : int  1 2 3 4 5 6 7 8 9 10 ...
##  $ height         : int  7 10 20 6 11 17 5 10 16 3 ...
##  $ weight         : int  69 130 1000 85 190 905 90 225 855 29 ...
##  $ base_experience: int  64 142 236 62 142 240 63 142 239 39 ...
##  $ type_1         : chr  "grass" "grass" "grass" "fire" ...
##  $ type_2         : chr  "poison" "poison" "poison" NA ...
##  $ attack         : int  49 62 82 52 64 84 48 63 83 30 ...
##  $ defense        : int  49 63 83 43 58 78 65 80 100 35 ...
##  $ hp             : int  45 60 80 39 58 78 44 59 79 45 ...
##  $ special_attack : int  65 80 100 60 80 109 50 65 85 20 ...
##  $ special_defense: int  65 80 100 50 65 85 64 80 105 20 ...
##  $ speed          : int  45 60 80 65 80 100 43 58 78 45 ...
##  $ color_1        : chr  "#78C850" "#78C850" "#78C850" "#F08030" ...
##  $ color_2        : chr  "#A040A0" "#A040A0" "#A040A0" NA ...
##  $ color_f        : chr  "#81A763" "#81A763" "#81A763" "#F08030" ...
##  $ egg_group_1    : chr  "monster" "monster" "monster" "monster" ...
##  $ egg_group_2    : chr  "plant" "plant" "plant" "dragon" ...
##  $ url_image      : chr  "1.png" "2.png" "3.png" "4.png" ...
##  $ x              : num  32.8 33.3 33.9 -24.4 -24.6 ...
##  $ y              : num  17.2 16.7 16.2 30.8 30.6 ...

Resumo focado da velocidade e gráfico quantitativo

No gráfico fica perceptível a quantidade de pokémons com velocidades diferentes, percebendo que a maioria dos pokémons têm uma velocidade entre o primeiro quartil e o segundo quartil baseado na velocidade máxima possível.

summary(df$speed)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    5.00   45.00   65.00   65.72   85.00  160.00
hist(df$speed,main = "Quantidade de Pokémons x Veloc. dos Pokémons", col = c("lightgreen"),labels = T,xlab = "Velocidade",ylab = "Quantidade de Pokémons",ylim = c(0,230))

Resumo focado no peso e gráfico quantitativo

O gráfico demonstra uma diferença gritante entre a primeira barra e as outras. A maioria dos pokémons estão entre 1 a 1000 de peso.

summary(df$weight)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##     1.0    95.0   280.0   568.2   609.5  9500.0
hist(df$weight,main = "Quantidade de Pokémons x Peso dos Pokémons", col = c("red"),labels = T,xlab = "Peso",ylab = "Quantidade de Pokémons",ylim = c(0,700))