Introdução

O objetivo desta atividade é fazer uma breve análise sobre a variável quantitativa Agressão, da base de dados FullData.

Carregamento de Dados:

library(readr)
FullData <- read_csv("FullData.csv")
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   .default = col_double(),
##   Name = col_character(),
##   Nationality = col_character(),
##   National_Position = col_character(),
##   Club = col_character(),
##   Club_Position = col_character(),
##   Club_Joining = col_character(),
##   Height = col_character(),
##   Weight = col_character(),
##   Preffered_Foot = col_character(),
##   Birth_Date = col_character(),
##   Preffered_Position = col_character(),
##   Work_Rate = col_character()
## )
## ℹ Use `spec()` for the full column specifications.

Gráfico da Variável

hist(FullData$Aggression, col="blue", main = "Histograma da Variável Agressão")

Estatística da Variável

summary(FullData$Aggression)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    2.00   44.00   59.00   55.92   70.00   96.00

Análise

Com base nas informações acima, atesta-se que se trata de um gráfico assimétrico, tendo em vista que ele apresenta variações assimétricas entre 0 e 70. Atesta-se também que o mínimo de agressão sofrida foi 2 e o máximo foi 96, numa escala de 0 a 100. Além disso, na mesma escala, obtém-se uma média e uma mediana de agressão diferentes: a primeira é igual a 55,92, enquanto a segunda é igual a 59. Isso ocorre porque a média é sensível a ouliers. Nesse caso, a mediana é melhor recomendada como referencial.

Conclusão

Assim sendo, a partir dessa variável, é possível afirmar que o futebol é um esporte razoavelmente agressivo, pois sua mediana é superior a 50, mesmo não chegando a 60.