Primeiro, irei carregar a base de dados.
library(readr)
FifaData <- read_csv("C:/Users/Arthur/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)
barplot(table(FifaData$Contract_Expiry), col = c("#db0d0d"),
main="gráfico dos anos nos quais expiram os contratos",)
hist(FifaData$Contract_Expiry, col = "#2f1136", main = "histograma dos contratos", xlab = "ano de expiração do contrato", ylab = "número de jogadores")
boxplot(FifaData$Contract_Expiry, col="light blue", main = "boxplot")