## Base de Dados Pokémon

Passo 1:

Importação dos dados:

load("C:/Users/Marcial/Downloads/df_pokemon.RData")
head(df)
##   id    pokemon species_id height weight base_experience type_1 type_2
## 1  1  bulbasaur          1      7     69              64  grass poison
## 2  2    ivysaur          2     10    130             142  grass poison
## 3  3   venusaur          3     20   1000             236  grass poison
## 4  4 charmander          4      6     85              62   fire   <NA>
## 5  5 charmeleon          5     11    190             142   fire   <NA>
## 6  6  charizard          6     17    905             240   fire flying
##   attack defense hp special_attack special_defense speed color_1 color_2
## 1     49      49 45             65              65    45 #78C850 #A040A0
## 2     62      63 60             80              80    60 #78C850 #A040A0
## 3     82      83 80            100             100    80 #78C850 #A040A0
## 4     52      43 39             60              50    65 #F08030    <NA>
## 5     64      58 58             80              65    80 #F08030    <NA>
## 6     84      78 78            109              85   100 #F08030 #A890F0
##   color_f egg_group_1 egg_group_2 url_image         x        y
## 1 #81A763     monster       plant     1.png  32.82239 17.21614
## 2 #81A763     monster       plant     2.png  33.32643 16.71226
## 3 #81A763     monster       plant     3.png  33.93778 16.17232
## 4 #F08030     monster      dragon     4.png -24.36338 30.78973
## 5 #F08030     monster      dragon     5.png -24.57820 30.60161
## 6 #DE835E     monster      dragon     6.png -25.50657 29.77037

Passo 2:

Correlação das Variáveis:

coe<- cor(df$attack,df$weight)
coe
## [1] 0.4605428

Passo 3:

Gráfico Peso X Ataque:

plot((df$weight~df$attack), col = "pink", xlab = "Ataque", ylab = "Peso", main = "Gráfico de Dispersão")
abline(lm(df$weight~df$attack), col = "black")

Passo 4:

Análise: Analisando o gráfico, vê-se que não necessariamente o peso influencia no ataque, mesmo que o Pokémon mais pesado(Groudon, com 950kg, porém a lista está desatualizada, visto que o pokémon mais pesado é o Cosmoen, com quase 10.000kg) tenha um ataque forte, o que tem o maior ataque(Rampardos, mas de novo: contando com megaevoluções, o maior ataque seria do Mega Mewtwo X, com 190) está em um peso não tão alto. Com a maioria dos Pokémons ficando entre peso 0-1000, (média 568.1657) e ataque 50-100, com média de 74.85376.

Passo 5:

Gráfico Inédito - Gráfico de Linha

library(ggplot2)
        
ggplot(df) + aes(x = attack, y = weight) + geom_line(size =1L, colour = "pink") + labs(x = "Ataque", y = "Peso", title = "Ataque X Peso") + theme_minimal()

Passo 6:

Análise: Vendo-se o gráfico de linha, percebe-se a mesma coisa, não são todos os pokémons pesados que possuem um ataque gigante, como visto na correlação entre as variáveis, há uma tendência, mas não é a maioria.