—> Importando Bases de Dados

A base de dados escolhida foi “df_pokemon.RData”.

load("C:/Users/jrmar/Documents/estatistica_adm/Base_de_dados-master/df_pokemon.RData")

Sendo assim, foi observado, que existem 20 variáveis nesse banco de dados. Dessa maneira, cada uma delas representa uma característica dos Pokémons apresentados.

A variável quantitativa escolhida para analisar foi a ataque.

tabela <- table(df$attack)

—> Análise Descritiva

O sumário (summary) dessa base de dados nos apresenta a média, mediana, mínimo e máximo. Dessa forma, a média dos ataques = 74,85 , a mediana dos ataques = 73 , o ataque mínimo = 5 e o ataque máximo = 165.

summary(df$attack)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    5.00   53.00   73.00   74.85   95.00  165.00

—> Histograma

Diante do histograma desenvolvido, pode-se analisar que, trata-se de um histograma simétrico e com apenas uma moda. Além disso, a quantidade de Pokémons que possuem força de ataque máxima é extremamente menor em relação a quantidade de Pokémons com ataques menores. Dessa forma, a maior quantidade de Pokémons possuem força de ataque entre 50 e 100. Portanto, observa-se que, quanto maior o ataque, menor a quatidade de Pokémons que possuem essa característica.

hist(df$attack,
     col=c("#FFFF00","#FFA500","#FF4500","#FF0000","#FF8C00","#FFA500","#FFD700","#F0E68C"),
     main="Histograma: Força de Ataque",
     xlab = "Ataque", 
     ylab = "Frequência")