Atividade 2

Carregar base de dados em CSV

library(readr)
FifaData <- read_csv("C:/Users/louiz/Downloads/Base_de_dados-master/FifaData.csv")

## Rows: 17588 Columns: 53
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (12): Name, Nationality, National_Position, Club, Club_Position, Club_Jo...
## dbl (41): National_Kit, Club_Kit, Contract_Expiry, Rating, Age, Weak_foot, S...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

Apresentar histograma, média e desvio padrão:

Histograma

hist(FifaData$Composure, col="green",
     main="Histograma Compostura",
     ylab = "Jogadores avaliados",
     xlab = "Compostura")

Com as informações obtidas neste histograma podemos concluir que o intervalo entre o nível 40 e 80 concentra a quantidade mais expressiva de jogadores avaliados. Sendo assim, jogadores com compostura assima de 80 são minoria na base de dados e mais difíceis de serem encontrados no jogo.

hist(FifaData$Short_Pass, col="red",
     main="Histograma Passes Curtos",
     ylab = "Jogadores avaliados",
     xlab = "Nível de Passes Curtos")

Por esse histograma podemos ver um contingente razoável de jogadores concentrados entre o nível 60 e o nível 80. Ainda assim, mesmo com um numero de jogadores avaliados com uma qualidade razoável de passes curtos, vemos também um numero expressivo de jogadores avaliados como muito abaixo da marca de 40.

Média e Desvio Padrão

Média:

mean(FifaData$Speed)

## [1] 65.48385

Desvio Padrão:

sd(FifaData$Heading)

## [1] 17.4737