Atividade 6

1 Carregando a base de dados

A base de dados escolhida foi FifaData.

library(readr)
FifaData <- read_csv("C:/Users/thaya/Desktop/Base_de_dados-master/FifaData.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.

2 Carregando biblioteca

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

3 Transformação variável

Fifa3 <- as.numeric(sub("cm", " ", FifaData$Height))

4 Hipótese

H1: Jogadores mais altos são mais velozes

5 Resumo dos dados

Diante da hipótese, serão utilizadas as variáveis Height e Speed

resumo <- FifaData %>% summarise(Altura_media=mean(Fifa3),
                           veloc_media=mean(Speed))
resumo

## # A tibble: 1 x 2
##   Altura_media veloc_media
##          <dbl>       <dbl>
## 1         181.        65.5

6 Diagrama de dispersão

par(bg="lightyellow")
plot(FifaData$Speed,Fifa3,pch=20,col="blue",
     main = "Diagrama de dispersão",
     xlab = "Velocidade",
     ylab = "Altura")
abline(lsfit(FifaData$Speed,Fifa3),col="darkred") 

par(bg="white")

7 Qual a correlação entre as variáveis?

cor(FifaData$Speed,Fifa3)

## [1] -0.4511171

8 Interpretação

Com base na análise do diagrama de dispersão, percebe-se que há uma relação linear negativa entre as duas variáveis, visto que a linha de tendência está declinando (de forma negativa); pode-se notar também a existência de alguns outliers, jogadores que são bem mais altos que a média. Já em relação a correlação, nota-se que existe uma correlação linear, negativa e muito fraca entre as duas variáveis (já que o valor é menor que zero).

Com isso, conclui-se que, apesar de uma pessoa mais alta ter ossos mais largos (o que a possibilita dar passos mais largos), aparentemente esse fator não tem relação com a velocidade quando se trata de jogadores de futebol.