A base de dados utilizada nessa atividade é a “df-pokemon.Rdata” que apresenta dados a respeito dos pokémons.

load("C:/Users/eveli/OneDrive/Documentos/Aulas de Estatística/Base_de_dados-master/df_pokemon.RData")

Resumo de uma variável quantitativa por grupos de uma variável qualitativa

O gráfico abaixo apresenta as médias de peso de cada tipo de Pokémon, bem como seus respectivos desvios padrão, peso mínimo, primeiro quartil, mediana, terceiro quartil e peso máximo.

library(dplyr)
## 
## Anexando pacote: 'dplyr'
## Os seguintes objetos são mascarados por 'package:stats':
## 
##     filter, lag
## Os seguintes objetos são mascarados por 'package:base':
## 
##     intersect, setdiff, setequal, union
library(flextable)
df %>% group_by(type_1) %>% 
  summarise(mediapeso = round(mean(weight),2),
            dppeso = round(sd(weight),2),
            minpeso = min(weight),
            quart1peso = quantile(weight, probs=0.25),
            medianapeso = median(weight),
            quart3peso = quantile(weight, probs=0.75),
            maxpeso = max(weight)) %>%
  flextable() %>% theme_booktabs()

type_1

mediapeso

dppeso

minpeso

quart1peso

medianapeso

quart3peso

maxpeso

bug

292.51

400.29

6

62.00

170.0

330.00

2,005

dark

398.50

449.22

21

116.00

290.0

470.00

2,030

dragon

1,149.12

1,131.44

28

205.75

775.0

1,645.00

3,450

electric

374.47

459.36

3

60.00

227.5

544.50

1,800

fairy

249.24

513.26

1

30.00

75.0

235.00

2,150

fighting

549.24

533.84

80

210.00

400.0

555.00

2,538

fire

611.28

773.29

25

190.00

325.0

766.25

4,300

flying

520.00

396.61

80

355.00

630.0

740.00

850

ghost

570.09

1,546.95

1

27.00

125.0

374.00

7,500

grass

381.09

542.15

5

59.50

156.5

511.00

3,100

ground

1,047.27

1,812.77

8

168.50

437.5

1,050.75

9,500

ice

1,032.61

1,237.88

57

213.50

554.0

1,493.00

5,050

normal

431.65

731.63

8

65.00

244.0

410.00

4,600

poison

366.21

287.67

10

101.00

300.0

603.75

1,073

psychic

300.54

391.57

3

50.00

165.0

470.00

2,160

rock

1,030.58

955.47

57

258.00

643.0

1,575.00

3,400

steel

1,569.00

1,881.43

11

283.75

707.5

2,043.75

6,830

water

535.76

725.39

14

109.00

280.0

650.00

3,980

Gráfico boxplot

O boxplot abaixo apresenta a relação entre o tipo do Pokémon e seus pesos.

library(ggplot2)
df %>% ggplot() + aes(x=type_1, y=weight)+
  geom_boxplot(fill="palevioletred") + theme_minimal() + 
  theme(plot.background = element_rect(fill = "plum1")) + coord_flip() +
  labs(title = "Boxplot",
       subtitle ="do peso do Pokémon por tipo",
       x = "Tipo do pokémon",y = "Peso")

Diagrama de disperção e correlação

Será que o peso dos Pokemón influencia no ataque?

plot(df$weight, df$attack, col="#ff4500", pch = 16,
     main = "Diagrama de dispersão do peso dos Pokémon",
     xlab = "Peso", ylab = "Ataque")
abline(lsfit(df$weight, df$attack), col= "#8b0000", lwd = 3)

round(cor(df$weight, df$attack),2)
## [1] 0.46

E na defesa?

plot(df$weight, df$defense, col="#4682b4", pch = 16,
     main = "Diagrama de dispersão da defesa pelo peso dos Pokémon",
     xlab = "Peso", ylab = "Defesa")
abline(lsfit(df$weight, df$defense), col= "#006400", lwd = 3)

round(cor(df$weight, df$defense),2)
## [1] 0.48

Existe relação do peso com a altura?

plot(df$weight, df$height, col="#d8bfd8", pch = 16,
     main = "Diagrama de dispersão da altura pelo peso dos pokémons",
     xlab = "Peso", ylab = "Altura")
abline(lsfit(df$weight, df$height), col= "#4b0082", lwd = 3)

round(cor(df$weight, df$height),2)
## [1] 0.65

Interpretação

Analisando a tabela com o resumo da variável pelo tipo de pokémon podemos perceber que o tipo de Pokémon que apresenta maior média de peso é o steel, e a menor o fairy. Além disso é possível notar que o peso médio varia significativamente entre os tipos de Pokémon. Também nota-se que alguns tipos de Pokémon como ghost e ground apresentam desvios padrão distantes das médias o que indica uma possível imprecisão das médias devido à existência de outliers, o que se confirma olhando para a mediana e máximos, já que esses dois tipos possuem pessos máximos muito maiores e as suas medianas.

De fato, quase todos os tipos apresentam outliers, como podemos ver no gráfico boxplot, já que muitos apresentam Pokémons que pesam bem mais que a maioria do grupo. Além do ghost e do ground, há também os tipos water, steel, normal, ice e fire dentro os que mais se destacam.Também é possível ver que a grande maioria dos Pokémon pesam entre 0 e 1250 hectogramas.

Quanto aos gráficos de dispersão entre peso e ataque e peso e defesa, ambos mostram que existe uma relação positiva porém fraca entre o peso e essas duas variáveis, o que se pode ver pelo coeficiente de correlção que é 0.46 para o ataque e 0.48 para a defesa. Fiz ainda um gráfico com a relação entre o peso e a altura e o resultado obtido foi de que exite uma relação moderada, com coeficiente de 0.65, o que era esperado pois Pokémon mais altos são mais pesados. Todavia é interessante que há variações significativas como Pokémon bem baixo e bastante pesados e altos que não são tão pesados. Ainda assim, o peso dos Pokémon não influencia fortemente em suas habilidades como ataque e defesa, e nem está tão relacioando assim com suas alturas.