Passo 1 - Carregar a Base de dados

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

Passo 2 - Inspecionar a Base de dados

Verificar as variáveis e escolher uma para analisar com o histograma.
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 ...

Passo 3 - Histograma e Summary da Defesa dos pokémons

Analisando o histograma abaixo, consegue-se perceber que ele tem uma assimetria pro lado direito. O que o torna com as características de assimétrico e unimodal.
No summary conseguimos informações importantes sobre a defesa dos pokémons, como a média, a mediana e os valores mínimos e máximos.
summary(df$defense)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    5.00   50.00   65.00   70.67   85.00  230.00
hist(df$defense, main = "Histograma de Defesa dos Pokémons",col = "turquoise4",
     labels = TRUE, ylim = c(0,250),xlim = c(0,250),
     xlab = "Valor da Defesa", ylab = "Quantidade de Pokémon")