A Dra. Rose foi chamada pela FIFA para fazer uma
análise do peso de jogadores de diversos times. Onde foi fornecida uma
base 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 conjunto dos dados, concluiu que não há presença de “outlier” na base de dados, isto é, não há um jogador que apresente um peso muito destacado dos outros de modo geral.
Também concluiu que os valores estão bem distribuídos ao redor da média, o que é evidenciado pela proximidade do valor da média com a mediana. O histograma, por sua vez, deixa essa distribuição mais evidente 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.