Atividade 6

1. Carregando Base de Dados Pokémon

load("C:/Users/labccet/AppData/Local/Temp/Temp1_Base_de_dados-master.zip/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. Correlação das Variáveis da Base de Dados

rho <- cor(df$speed, df$attack)
rho
## [1] 0.3356615

3. Gráfico das Variáveis

4. Análise do Gráfico

Com base nesse gráfico, podemos observar que há uma grande disparidade entre a velocidade e o poder de ataque dos pokémon.

Atividade 7

1. Novo Modelo de Gráfico

library(ggplot2)
## Warning: package 'ggplot2' was built under R version 3.5.3
ggplot(df) +
 aes(x = attack, y = speed, size = weight) +
 geom_point(colour = "#cb181d") +
 labs(x = "Poder de Ataque", y = "Velocidade", title = "Gráfico Pontilhado de Pokémon ", size = "Peso") +
 theme(legend.position = "left")

2. Análise do Gráfico

Esse gráfico, feito com o auxílio da ferramenta ggplot2, também podemos observar que os Pokémon variam bastante em quanto a velocidade e poder de ataque, sendo que a maioria deles se contra em x (25-100).