variavel quantitativa x variavel qualitativa

Introdução

Foi realizada a coleta de dados estatistico para comparar hipoteses entre as variaveis velocidade e as especies de pokémons coletadas do banco de dados disponibilizado. Ao longo da análise podemos observar como essa dinamica ocorre por meio de uma análise visual que conta com tabelas e um gráfico.

Carreagar base de dados

load("C:/Users/andre/Base_de_dados-master/df_pokemon.RData")

Bibliotecas

library(dplyr)

library(flextable)

Média, Mediana & desvio padrão

df %>% select(type_1,speed) %>% 
  group_by(type_1) %>%
  summarise(média=mean(speed),
            mediana=median(speed),
            desvio_padrão=sd(speed)) %>%
  flextable() %>% theme_tron()

type_1

média

mediana

desvio_padrão

bug

60.06349

57.0

32.23396

dark

75.39286

70.0

25.05156

dragon

76.66667

80.0

22.41053

electric

83.52778

93.0

27.36367

fairy

48.58824

45.0

23.30520

fighting

62.88000

60.0

24.26815

fire

74.47826

78.5

24.57798

flying

96.33333

111.0

36.29509

ghost

60.82609

56.0

27.54443

grass

59.89394

56.5

25.81480

ground

62.13333

60.0

27.44868

ice

61.86957

59.0

23.75118

normal

69.65591

70.0

26.98731

poison

63.57143

62.5

22.63139

psychic

72.63043

71.0

32.56198

rock

51.97500

50.0

25.71589

steel

54.18182

50.0

25.47760

water

65.00952

65.0

22.61147

Minimo, 1 quartil, mediana, 3 quartil e máximo

df %>% select(type_1,speed) %>% 
  group_by(type_1) %>% 
  summarise(mínimo=min(speed),
            primeiro_quartil=quantile(speed,0.25),
            mediana=median(speed),
            terceiro_quartil=quantile(speed,0.75),
            máximo=max(speed)) %>% 
  flextable() %>% theme_tron_legacy()

type_1

mínimo

primeiro_quartil

mediana

terceiro_quartil

máximo

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

Gráfico bloxpot

boxplot(df$speed ~ df$type_1,
        col = c("grey","green"),
        main="boxplot - velocidade e tipo dos pokemos",
        ylab = "velocidade",
        xlab = "tipo")

Conclusão

Após uma detalhada análse estatistica contendo as tabelas com as informações de tipos e velocidades dos pokémons, os dados atestam que todos os pokemons tem velocidades diferentes porem com pequenas discrepancias entre eles onde alguns apresentam um alto grau de velocidade em relação aos outros, como observado no gráfico.