Vou transportar as informações.
load("C:/Users/maria/OneDrive/Documentos/ESTATISTICA/Base_de_dados-master/df_pokemon.RData")
#Tipos de pokemon
table(df$special_attack)
##
## 10 15 20 23 24 25 27 29 30 31 32 33 35 36 37 38 39 40 41 42
## 3 3 8 1 2 11 2 1 24 1 2 1 29 2 3 1 1 48 1 2
## 43 44 45 46 47 48 49 50 51 53 54 55 56 57 58 59 60 61 62 63
## 2 5 33 2 2 3 2 39 1 4 3 33 3 3 4 2 49 6 5 5
## 64 65 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 83 85 86
## 1 41 2 2 3 27 2 3 4 5 18 3 2 1 3 25 6 7 26 1
## 87 88 90 91 92 94 95 97 98 99 100 103 104 105 106 107 108 109 110 111
## 2 1 21 1 4 2 24 4 3 2 26 2 1 13 1 1 1 4 13 1
## 112 114 115 116 120 125 128 129 130 131 135 145 150 154
## 2 2 8 1 8 13 1 1 7 2 4 1 6 1
barplot(table(df$special_attack),
col=c("red"),
main = "meu grafico de barras")
summary(df)
## id pokemon species_id height
## Min. : 1.0 Length:718 Min. : 1.0 Min. : 1.00
## 1st Qu.:180.2 Class :character 1st Qu.:180.2 1st Qu.: 6.00
## Median :359.5 Mode :character Median :359.5 Median : 10.00
## Mean :359.5 Mean :359.5 Mean : 11.41
## 3rd Qu.:538.8 3rd Qu.:538.8 3rd Qu.: 14.00
## Max. :718.0 Max. :718.0 Max. :145.00
## weight base_experience type_1 type_2
## Min. : 1.0 Min. : 36.00 Length:718 Length:718
## 1st Qu.: 95.0 1st Qu.: 65.25 Class :character Class :character
## Median : 280.0 Median :147.00 Mode :character Mode :character
## Mean : 568.2 Mean :141.55
## 3rd Qu.: 609.5 3rd Qu.:177.00
## Max. :9500.0 Max. :608.00
## attack defense hp special_attack
## Min. : 5.00 Min. : 5.00 Min. : 1.00 Min. : 10.00
## 1st Qu.: 53.00 1st Qu.: 50.00 1st Qu.: 50.00 1st Qu.: 45.00
## Median : 73.00 Median : 65.00 Median : 65.00 Median : 65.00
## Mean : 74.85 Mean : 70.67 Mean : 68.37 Mean : 68.47
## 3rd Qu.: 95.00 3rd Qu.: 85.00 3rd Qu.: 80.00 3rd Qu.: 90.00
## Max. :165.00 Max. :230.00 Max. :255.00 Max. :154.00
## special_defense speed color_1 color_2
## Min. : 20.00 Min. : 5.00 Length:718 Length:718
## 1st Qu.: 50.00 1st Qu.: 45.00 Class :character Class :character
## Median : 65.00 Median : 65.00 Mode :character Mode :character
## Mean : 69.09 Mean : 65.72
## 3rd Qu.: 85.00 3rd Qu.: 85.00
## Max. :230.00 Max. :160.00
## color_f egg_group_1 egg_group_2 url_image
## Length:718 Length:718 Length:718 Length:718
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## x y
## Min. :-49.152 Min. :-45.793
## 1st Qu.:-17.695 1st Qu.:-17.293
## Median : 0.705 Median : -0.628
## Mean : 0.000 Mean : 0.000
## 3rd Qu.: 15.905 3rd Qu.: 18.155
## Max. : 53.142 Max. : 46.593
summary(df$type_1)
hist(df$special_attack, col = "red",
main = "grafico 1 - histograma ataque especial",
xlab = "ataque especial", ylab = "frequência")
hist(df$special_defense, col = "blue",
main = "grafico 2 - histograma defesa especial",
xlab = "defesa especial", ylab = "frequência")
# Conclusão
É possível avaliar que a maior parte dos pokémons tem ataque especial com força menor que 100, ficando entre 50 e 100. A força mais recorrente é 50.
Já em relação a defesa especial, a maior parte dos pokémons tem uma força baixa, ficando entre 50 e 100. A força mais recorrente também é de 50.
Os dois gráficos são assimétricos.