load("C:/Users/ferna/Downloads/Base_de_dados-master/df_pokemon.RData")
summary(table(df$defense))
## Number of cases in table: 718
## Number of factors: 1
hist(table(df$defense), col = c("blue","darkblue","yellow","green", "orange","black","pink","white"),main ="Histograma")
summary(df$defense)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 5.00 50.00 65.00 70.67 85.00 230.00
O histograma mostra uma relação entre frequência e defesa.
Podemos perceber que a máxima é 230,0, enquanto a mínima é de 5,o. Além disso, a média se encontra em 65,0.