Histograma e Uma Análise descritiva (média, mediana, desvio-padrão)

 load("~/Base_de_dados-master/df_pokemon.RData")

criando o conjunto de dados

attack = c(49,62,82,52,64)
defense = c(49,63,83,43,58)

Calculando a média

media_attack = mean(attack)
media_defense = mean(defense)

media_attack

## [1] 61.8

media_defense

## [1] 59.2

Calculando Desvio

desvio_padrao_attack = sd(attack)
desvio_padrao_defense  = sd(defense)

desvio_padrao_attack

## [1] 12.96919

desvio_padrao_defense

## [1] 15.4013

Calculando a Mediana

attack = c(49,62,82,52,64)
mean(attack)

## [1] 61.8

median(attack)

## [1] 62

defense = c(49,63,83,43,58)
mean(defense)

## [1] 59.2

median(defense)

## [1] 58

#Histograma attack

hist(df$attack,col="blue",
     main="histograma attack",
     ylab = "Frequencia",
     xlab = "attack")

Intepretação do histograma do ataque.

Primeiramente podemos observar que temos um histograma assimetrico. Pelo menos 100 pokemon chegam a 150 ataques, uns 140 chegam a 50 ataques, 125 chegam pelo menos a 65 ataques.

#histograma defense

hist(df$defense,col="yellow",
     main="histograma defense",
     ylab = "Frequencia",
     xlab = "defense ")

Intepretação do histograma de defesa.

Aqui temos também um histograma assimetrico. Só uns 10 pokemon aproximadamente conseguem chegar a 200 defesas, 50 chegam a 125 defesas aproximadamente, 100 chegam a 50 defesas, 150 chegam a 100 defesas e 200 chegam a 85 defesas aproximadamente.