Introdução

Aqui vamos carregar a base de dados.

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

Análise Descritiva

Aqui será inserido um resumo dos dados da variável quantitativa de velocidade.

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

Histograma

Entrada do histograma da variável quantitativa de velocidade

hist(df$speed, col = c("lightgreen"), main = "Velocidade dos Pokemons", xlab = "Velocidade")

Acerca do gráfico, podemos analisar que o histograma apresentado é assimétrico, que a maioria dos pokémons possuem uma média de velocidade de 50 km/h, e que somente a menor frequência é capaz de ultrapassar os 150 km/h.

Boxplot

Entrada do boxplot da variável quantitativa de velocidade

boxplot(df$speed, col = c("lightgreen"), main = "Boxplot da velocidade dos Pokemons", ylim=c(0,200))

Sobre o gráfico apresentado, podemos concluir que o boxplot é de caráter assimétrico, seu limite mínimo é de 5 Km/h, e seu limite máximo chega a 150 Km/h, com apenas 2 outliers. Também é possível entender que 25% (1º Quartil) dos pokémons possuem velocidade de 45 Km/h, 75% possuem velocidade de 85 Km/h e que a velocidade máxima é de 160 Km/h.