Carregar Base de Dados do Pokemon

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

Conferir os dados

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 ...

Sumário do atributo Sp.Attack

summary(df$special_attack)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   10.00   45.00   65.00   68.47   90.00  154.00

Histograma do Special Attack

A maioria dos pokémons possuem um Special Attack acima de 60.

hist(df$special_attack,main = "Histograma de Special Attack x Pokemons", col = "royalblue", labels = TRUE, ylim = c(0,300), xlim = c(0,250), xlab = "Special Attack", ylab = "Quantidade de Pokemons")

Sumário do atributo Speed

summary(df$speed)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    5.00   45.00   65.00   65.72   85.00  160.00

Histograma da Speed dos Pokemons

Apenas 76 Pokemons podem ser considerados acima da média quando falamos de sua Speed.

hist(df$speed,main= "Histograma de Speed x Pokemons",col= "purple",labels=TRUE, ylim = c(0,300), xlim = c(0,250), xlab = "Speed", ylab= "Quantidade de Pokemons")

Conclusão

Percebe-se que a maioria dos Pokemons se encontram na média de seus atributos, podemos então considerar que existe uma grande raridade entre alguns Pokemons os quais possuem atributos maiores e mais fortes, podendo ser um grande diferencial quando comparado aos demais.