A Dra. Rose foi chamada pela Fifa para fazer uma
análise do peso de jogadores de diversos times. Onde foi fornecida uma
pase de dados para que pudesse realizar seus estudos.
FifaData = read.csv("G:/Meu Drive/MESTRADO/ESTATISTICA/Base_de_dados-master/FifaData.csv")
library(stringr)
peso = c(FifaData$Weight)
pesotratado =c(str_sub(peso,0,3)) #Artificio para eliminar o "kg" do vetor.
pesotratado = as.numeric(pesotratado) #convertendo caracteres em valores numéricos
summary(pesotratado)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 48.00 70.00 75.00 75.25 80.00 110.00
Observe que o jogador mais leve, pesa, 48 kg, e o mais pesado, tem 110 kg. e a média de peso de todos jogadores é, aproximadamente, 75,25 kg e a mediana é 75 kg.
Também é possivel gerar a média e a mediana com o comando “mean” e “median”, respectivamente, como você pode ver abaixo:
mean(pesotratado)
## [1] 75.25335
median(pesotratado)
## [1] 75
sd(pesotratado)
## [1] 6.897948
Sendo assim, é possível ver que o desvio padrão é 6.897948 kg.
A Dra. Rose não achou os dados conclusivos, então resolveu gerar um Histograma para que as informações ficassem mais visuais.
hist(pesotratado,col="cyan",main = "Histograma - Pesos dos Jogadores",
xlab="Peso", ylab="Quantidade de Jogadores")
Após analisar o histograma concluiu que não há presença de “outlier” na base de dados, isto é, não há um jogador que apresente um peso diferente dos valores que se apresentaram no geral.
Também concluiu que os valores estão bem distribuidos ao redor da média, oque é evidênciado pela proximadade em valor com a mediana. O hisograma, por sua vez deixa essa distribuição mais evidênte ainda apresentando simetria e formato de sino, o que significa que as variações vão diminuindo de maneira simétrica em direção às extremidades.