Carregar base de dados e pacotes

load("C:/Users/julia/Documents/Faculdade/Estatistica/Base_de_dados-master/df_pokemon.RData")
library(readxl)
library(flextable)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(ggplot2)

Tabela de dados

head(df) %>% flextable()  %>% theme_apa()

id

pokemon

species_id

height

weight

base_experience

type_1

type_2

attack

defense

hp

special_attack

special_defense

speed

color_1

color_2

color_f

egg_group_1

egg_group_2

url_image

x

y

1.00

bulbasaur

1

7

69

64

grass

poison

49

49

45

65

65

45

#78C850

#A040A0

#81A763

monster

plant

1.png

32.82

17.22

2.00

ivysaur

2

10

130

142

grass

poison

62

63

60

80

80

60

#78C850

#A040A0

#81A763

monster

plant

2.png

33.33

16.71

3.00

venusaur

3

20

1,000

236

grass

poison

82

83

80

100

100

80

#78C850

#A040A0

#81A763

monster

plant

3.png

33.94

16.17

4.00

charmander

4

6

85

62

fire

52

43

39

60

50

65

#F08030

#F08030

monster

dragon

4.png

-24.36

30.79

5.00

charmeleon

5

11

190

142

fire

64

58

58

80

65

80

#F08030

#F08030

monster

dragon

5.png

-24.58

30.60

6.00

charizard

6

17

905

240

fire

flying

84

78

78

109

85

100

#F08030

#A890F0

#DE835E

monster

dragon

6.png

-25.51

29.77

Calculando média e o desvio padrão

df %>% select(type_1,speed) %>% 
  group_by(type_1) %>% 
  summarise(média=mean(speed),
            desvio_padrao=sd(speed)) %>% 
  flextable()

type_1

média

desvio_padrao

bug

60.06349

32.23396

dark

75.39286

25.05156

dragon

76.66667

22.41053

electric

83.52778

27.36367

fairy

48.58824

23.30520

fighting

62.88000

24.26815

fire

74.47826

24.57798

flying

96.33333

36.29509

ghost

60.82609

27.54443

grass

59.89394

25.81480

ground

62.13333

27.44868

ice

61.86957

23.75118

normal

69.65591

26.98731

poison

63.57143

22.63139

psychic

72.63043

32.56198

rock

51.97500

25.71589

steel

54.18182

25.47760

water

65.00952

22.61147

Calculando mediana

df %>% select(type_1,speed) %>% 
  group_by(type_1) %>% 
  summarise(mínimo=min(speed),
            quartil1 = quantile(speed,0.25),
            mediana= median(speed),
            quartil3= quantile(speed,0.75),
            maximo=max(speed)) %>% 
  flextable()

type_1

mínimo

quartil1

mediana

quartil3

maximo

bug

5

36.00

57.0

85.00

160

dark

35

59.50

70.0

95.75

125

dragon

40

55.25

80.0

95.00

110

electric

35

60.00

93.0

103.50

140

fairy

15

30.00

45.0

60.00

99

fighting

25

45.00

60.0

80.00

118

fire

20

60.25

78.5

94.50

126

flying

55

83.00

111.0

117.00

123

ghost

20

36.50

56.0

82.00

110

grass

10

40.00

56.5

77.50

120

ground

10

40.00

60.0

87.25

120

ice

25

47.50

59.0

79.50

110

normal

5

50.00

70.0

90.00

125

poison

25

50.00

62.5

77.00

130

psychic

20

45.00

71.0

99.25

150

rock

10

33.75

50.0

68.50

130

steel

23

30.75

50.0

70.00

108

water

15

50.00

65.0

81.00

122

Boxplot

boxplot(df$speed ~ df$type_1,
        col=c("green","purple"),
        main="Boxplot: Velocidade x Tipo",
        ylab = "Speed",
        xlab="Tipo")

Análise e Conclusões

A análise a seguir foi feita a partir da base de dados fornecida para tal. Nessa base de dados, os pokémons analisados são das 6 primeiras gerações, não levando em conta as regiões de Alola, Galar, Hisui e Paldea. Nesse intervalo, tem 718 pokémons diferentes.

Vamos tirar algumas conclusões baseadas nas médias do stat Velocidade, que mostra numericamente o quão rápido é o pokémon. Quando um pokémon é mais rápido que outro, ele age primeiro em batalha. A velocidade também pode gerar vantagem a depender do ataque, como o ataque “Electro Ball”, que calcula o dano base do ataque em relação ao quão mais rápida que o seu oponente o pokemon é.

Tendo como base os dados analisados, é possível concluir que os pokémons dotipo Voador e Elétrico possuem as maiores velocidades (em média). Essa velocidade tem muito a ver com seus tipos e estilos de batalha de forma geral, já que a eletricidade em si é muito veloz e voar dá uma vantagem natural de movimentação.O pokémon Emolga, que possuí ambos os tipos, possui uma velocidade base de 103, considerada alta, e é um bom exemplo disso.