FullData <- read.csv("C:/Users/Quesia/Desktop/Base_de_dados-master/complete-fifa-2017-player-dataset-global/FullData.csv")
summary(FullData$Short_Pass)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 10.00 52.00 62.00 58.12 68.00 92.00
hist(FullData$Short_Pass , col="green",main = "Histograma de Passes curtos")
Neste gráfioco podemos verificar que a disperção de dados está entre os intervalos 10 e 92. O jogador com meno número de passes realizou 10 e o maior 92.A maior frequencia de passes foi entre os 60 e 80 minutos. O gráfico é assimetrico, pois em um certo momento há uma grande diferença na frequencia de passes.