1. Importação da base de dados pokemón

load("C:/Users/isaft/OneDrive/Documentos/R/Base_de_dados-master/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

2. Coeficiente de correlação entre as variáveis ALTURA e PESO

rho <- cor(df$height, df$weight)
rho
## [1] 0.6465813

3. Diagrama de Dispersão entre as variáveis

par(mfrow=c(1,1))
plot(df$height,df$weight, col = "darkblue", pch=20, xlab = "Altura", ylab = "Peso", main = "Diagrama de dispersão de Altura por Peso")
abline(lm(df$weight~df$height), col = "darkred")

3.1. Análise do diagrama

Vê-se que a maioria dos pokemóns se concentram no canto esquerdo do gráfico, isto é, possuem altura e peso menores simultaneamente. Poucos se dispersam ao terem uma maior altura ou um peso maior.

Curiosidade: o pokemón Flabebe se encontra no ponto (1, 1), ou seja, é o menor pokemón e o mais leve ao mesmo tempo!

4. Gráfico de linhas (inédito)

library(ggplot2)
library(ggthemes)
ggplot(df) +
 aes(x = height, y = weight) +
 geom_line(size = 1L, colour = "#7301a8") +
 labs(x = "ALTURA", y = "PESO", title = "Gráfico Altura por Peso", subtitle = "Gráfico de linha") +
 theme_solarized()

4.1. Análise do novo gráfico

O gráfico de linhas mostra novamente a tendência mostrada no primeiro: muitos concentrados numa altura e peso baixos, sendo poucos os que se diferenciam.