Atividade 6 Estatística

Carregando a base de dados e as bibliotecas

library(readr)
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

library(corrplot)

## Warning: package 'corrplot' was built under R version 4.0.5

## corrplot 0.84 loaded

FifaData <- read_csv("C:/Users/Usuario/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.

View(FifaData)

Diagrama de dispersão

par(bg="lightyellow")
plot(FifaData$Rating,FifaData$Finishing,pch=20,col="blue",
     main="Diagrama de dispersão",
     xlab="Avaliação geral do jogador",
     ylab="Avaliação da finalização")
abline(lsfit(FifaData$Rating,FifaData$Finishing),col="darkred")

Resumo da média e desvio padrão

resumo<-FifaData %>% summarise(media_Finishing=mean(Finishing),
                               Rating_media=mean(Rating),
                               dp_Finishing=sd(Finishing),
                               Rating_dp=sd(Rating))
print(resumo)

## # A tibble: 1 x 4
##   media_Finishing Rating_media dp_Finishing Rating_dp
##             <dbl>        <dbl>        <dbl>     <dbl>
## 1            45.2         66.2         19.4      7.08

Correlação entre Rating e Finishing

cor(FifaData$Rating,FifaData$Finishing)

## [1] 0.3287281

Conclusão

A partir do gráfico, do resumo e da correlação, podemos analisar uma correlação positiva forte, uma ves que as duas variáveis se movem juntas. Entretanto, isso não significa que há uma relação entre o "rating" e o "finishing", porque é visível que há jogadores com uma avaliação alta, porém uma finalização abaixo do esperado, e o mesmo acontece no oposto, em que há jogadores que finalizam bem, mas não possuem uma avaliação elevada.                 
Portanto, esse gráfico apresenta um grau fraco de associação, por ter uma correlação no valor de 0,32. Além disso, pode-se verificar que uma diferença alta entre a média da finalização e da avaliação do jogador, o que demonstrar uma disparidade ainda maior, mostrando que não há de fato uma correlação forte e autêntica.