options(readr.num_columns = 0)
library(readr)
FullData <- read_csv("C:/Users/PCY/Documents/Estatistica R/BASE DE DADOS ESTATISTICA/complete-fifa-2017-player-dataset-global/FullData.csv")
# Resumo das estatísticas de penaltis
# Estatísticas Penalties
summary(FullData$Penalties)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 7.00 39.00 50.00 49.17 61.00 96.00
# Outlier Penalties
boxplot.stats(FullData$Penalties)$out
## [1] 96
Segue aqui a visualização de dados de uma variável quantitativa a partir da construção do histograma da habilidade em bater pênalti.
hist(FullData$Penalties,col = "#360ee8",main = "Histograma - Habilidade em bater Pênalti",xlim = c(0,100),ylim = c(0,2500),xlab = c("Nível da habilidade"),ylab = c("Frequência"))
Nota-se que a maior frequência de jogadores é vista entre os intervalos 55-60, e que o gráfico é apenas levemente assimétrico, vide mediana e média estarem próximas. Além disso, o pior batedor tem “7” de nível da habilidade e o melhor tem “96”, mínimo e máximo, respectivamente. Destaca-se também apenas um outlier(nível=96), um valor atípico nesta variável.