1 - Carregar as bases

 library(readr)

 FullData <- read_csv("Base_de_dados-master/complete-fifa-2017-player-dataset-global/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()
## )
## i Use `spec()` for the full column specifications.

– 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() ) i Use spec() for the full column specifications.

2 - Chutes de Longa distância

Os valores abaixo nos mostram o Mínimo, Máximo, Mediana e Media em chutes de longa disância na base de dados dos jogadores do Fifa em 2017.

 summary(FullData$Long_Shots)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##     4.0    32.0    52.0    47.4    63.0    91.0

Min. 1st Qu. Median Mean 3rd Qu. Max. 4.0 32.0 52.0 47.4 63.0 91.0

3 - Histograma com outliers

É possível constatar, no histograma a seguir, a presença de ouliers com nitidez, abaixo de 5 e acima de 90. Dessa maneira, é possível concluir que esses outliers aumentaram o valor da média.

 hist(FullData$Long_Shots, main = "Histograma dos chutes de longa distância")