Dados

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

Sumário

summary(table(df$defense))
## Number of cases in table: 718 
## Number of factors: 1

Histograma

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

Conclusão

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.