R Markdown

##1º Passo - Carregar Base de Dados

load("C:/Users/renata/Desktop/df_pokemon.RData")

##2º Passo - Inspecionar 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 ...

##3º Passo - Summary e gerar gráficos quantitativos

#Velocidade
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 = "Histograma de Velocidade x Nº de Pokemons", col = "blue", labels = TRUE, ylim = c(0,250), xlim = c(0,250),xlab = "Velocidade", ylab = "Número de Pokemons")

#altura
summary(df$height)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    1.00    6.00   10.00   11.41   14.00  145.00
hist(df$height,main = "Histograma de altura x Nº de Pokemons", col = "blue", labels = TRUE, xlab = "Altura", ylab = "Número de Pokemons")

#peso

hist(df$weight,main = "Histograma de Peso x Nº de Pokemons", col = "blue", labels = TRUE, xlab = "Peso", ylab = "Número de Pokemons")

##4º Passo - Conclusão

Nestes histogramas é possível analisar a velocidade dos pokemons, no sefgundo histograma há uma assimetria a direita, no terceiro também. No primeiro o da velocidade, se pode ver que há uma simetria, com uma distribuição próxima da normal.

Pode-se inferir que a velocidade dos pokemons não tem relação direta com seu peso e altura, não sendo fatores determinantes.