Gráficos Para Variáveis Quantitativas
Lucas Bonifácio
22/03/2021
#Introdução
Base de Dados
library(readr)
FifaData <- read_csv("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)
str(FifaData)## spec_tbl_df [17,588 x 53] (S3: spec_tbl_df/tbl_df/tbl/data.frame)
## $ Name : chr [1:17588] "Cristiano Ronaldo" "Lionel Messi" "Neymar" "Luis Suárez" ...
## $ Nationality : chr [1:17588] "Portugal" "Argentina" "Brazil" "Uruguay" ...
## $ National_Position : chr [1:17588] "LS" "RW" "LW" "LS" ...
## $ National_Kit : num [1:17588] 7 10 10 9 1 1 9 11 NA 1 ...
## $ Club : chr [1:17588] "Real Madrid" "FC Barcelona" "FC Barcelona" "FC Barcelona" ...
## $ Club_Position : chr [1:17588] "LW" "RW" "LW" "ST" ...
## $ Club_Kit : num [1:17588] 7 10 11 9 1 1 9 11 9 13 ...
## $ Club_Joining : chr [1:17588] "07/01/2009" "07/01/2004" "07/01/2013" "07/11/2014" ...
## $ Contract_Expiry : num [1:17588] 2021 2018 2021 2021 2021 ...
## $ Rating : num [1:17588] 94 93 92 92 92 90 90 90 90 89 ...
## $ Height : chr [1:17588] "185 cm" "170 cm" "174 cm" "182 cm" ...
## $ Weight : chr [1:17588] "80 kg" "72 kg" "68 kg" "85 kg" ...
## $ Preffered_Foot : chr [1:17588] "Right" "Left" "Right" "Right" ...
## $ Birth_Date : chr [1:17588] "02/05/1985" "06/24/1987" "02/05/1992" "01/24/1987" ...
## $ Age : num [1:17588] 32 29 25 30 31 26 28 27 35 24 ...
## $ Preffered_Position: chr [1:17588] "LW/ST" "RW" "LW" "ST" ...
## $ Work_Rate : chr [1:17588] "High / Low" "Medium / Medium" "High / Medium" "High / Medium" ...
## $ Weak_foot : num [1:17588] 4 4 5 4 4 3 4 3 4 3 ...
## $ Skill_Moves : num [1:17588] 5 4 5 4 1 1 3 4 4 1 ...
## $ Ball_Control : num [1:17588] 93 95 95 91 48 31 87 88 90 23 ...
## $ Dribbling : num [1:17588] 92 97 96 86 30 13 85 89 87 13 ...
## $ Marking : num [1:17588] 22 13 21 30 10 13 25 51 15 11 ...
## $ Sliding_Tackle : num [1:17588] 23 26 33 38 11 13 19 52 27 16 ...
## $ Standing_Tackle : num [1:17588] 31 28 24 45 10 21 42 55 41 18 ...
## $ Aggression : num [1:17588] 63 48 56 78 29 38 80 65 84 23 ...
## $ Reactions : num [1:17588] 96 95 88 93 85 88 88 87 85 81 ...
## $ Attacking_Position: num [1:17588] 94 93 90 92 12 12 89 86 86 13 ...
## $ Interceptions : num [1:17588] 29 22 36 41 30 30 39 59 20 15 ...
## $ Vision : num [1:17588] 85 90 80 84 70 68 78 79 83 44 ...
## $ Composure : num [1:17588] 86 94 80 83 70 60 87 85 91 52 ...
## $ Crossing : num [1:17588] 84 77 75 77 15 17 62 87 76 14 ...
## $ Short_Pass : num [1:17588] 83 88 81 83 55 31 83 86 84 32 ...
## $ Long_Pass : num [1:17588] 77 87 75 64 59 32 65 80 76 31 ...
## $ Acceleration : num [1:17588] 91 92 93 88 58 56 79 93 69 46 ...
## $ Speed : num [1:17588] 92 87 90 77 61 56 82 95 74 52 ...
## $ Stamina : num [1:17588] 92 74 79 89 44 25 79 78 75 38 ...
## $ Strength : num [1:17588] 80 59 49 76 83 64 84 80 93 70 ...
## $ Balance : num [1:17588] 63 95 82 60 35 43 79 65 41 45 ...
## $ Agility : num [1:17588] 90 90 96 86 52 57 78 77 86 61 ...
## $ Jumping : num [1:17588] 95 68 61 69 78 67 84 85 72 68 ...
## $ Heading : num [1:17588] 85 71 62 77 25 21 85 86 80 13 ...
## $ Shot_Power : num [1:17588] 92 85 78 87 25 31 86 91 93 36 ...
## $ Finishing : num [1:17588] 93 95 89 94 13 13 91 87 90 14 ...
## $ Long_Shots : num [1:17588] 90 88 77 86 16 12 82 90 88 17 ...
## $ Curve : num [1:17588] 81 89 79 86 14 21 77 86 82 19 ...
## $ Freekick_Accuracy : num [1:17588] 76 90 84 84 11 19 76 85 82 11 ...
## $ Penalties : num [1:17588] 85 74 81 85 47 40 81 76 91 27 ...
## $ Volleys : num [1:17588] 88 85 83 88 11 13 86 76 93 12 ...
## $ GK_Positioning : num [1:17588] 14 14 15 33 91 86 8 5 9 86 ...
## $ GK_Diving : num [1:17588] 7 6 9 27 89 88 15 15 13 84 ...
## $ GK_Kicking : num [1:17588] 15 15 15 31 95 87 12 11 10 69 ...
## $ GK_Handling : num [1:17588] 11 11 9 25 90 85 6 15 15 91 ...
## $ GK_Reflexes : num [1:17588] 11 8 11 37 89 90 10 6 12 89 ...
## - attr(*, "spec")=
## .. cols(
## .. Name = col_character(),
## .. Nationality = col_character(),
## .. National_Position = col_character(),
## .. National_Kit = col_double(),
## .. Club = col_character(),
## .. Club_Position = col_character(),
## .. Club_Kit = col_double(),
## .. Club_Joining = col_character(),
## .. Contract_Expiry = col_double(),
## .. Rating = col_double(),
## .. Height = col_character(),
## .. Weight = col_character(),
## .. Preffered_Foot = col_character(),
## .. Birth_Date = col_character(),
## .. Age = col_double(),
## .. Preffered_Position = col_character(),
## .. Work_Rate = col_character(),
## .. Weak_foot = col_double(),
## .. Skill_Moves = col_double(),
## .. Ball_Control = col_double(),
## .. Dribbling = col_double(),
## .. Marking = col_double(),
## .. Sliding_Tackle = col_double(),
## .. Standing_Tackle = col_double(),
## .. Aggression = col_double(),
## .. Reactions = col_double(),
## .. Attacking_Position = col_double(),
## .. Interceptions = col_double(),
## .. Vision = col_double(),
## .. Composure = col_double(),
## .. Crossing = col_double(),
## .. Short_Pass = col_double(),
## .. Long_Pass = col_double(),
## .. Acceleration = col_double(),
## .. Speed = col_double(),
## .. Stamina = col_double(),
## .. Strength = col_double(),
## .. Balance = col_double(),
## .. Agility = col_double(),
## .. Jumping = col_double(),
## .. Heading = col_double(),
## .. Shot_Power = col_double(),
## .. Finishing = col_double(),
## .. Long_Shots = col_double(),
## .. Curve = col_double(),
## .. Freekick_Accuracy = col_double(),
## .. Penalties = col_double(),
## .. Volleys = col_double(),
## .. GK_Positioning = col_double(),
## .. GK_Diving = col_double(),
## .. GK_Kicking = col_double(),
## .. GK_Handling = col_double(),
## .. GK_Reflexes = col_double()
## .. )Resumo dos Dados
summary(FifaData$Age)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 17.00 22.00 25.00 25.46 29.00 47.00Gráfico de Barras
Representação em grafico de barras dos dados analisados
barplot(table(FifaData$Age),col = c("darkblue"),main = "Representação
Gráfica - Idade dos Jogadores", ylim=c(0,1800))
#Resumo da Variável Idade
summary(FifaData$Age)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 17.00 22.00 25.00 25.46 29.00 47.00#Histograma baseado nos dados obtidos
Representação Gráfica em Histograma
hist(FifaData$Age,col = c("red"),main ="Histrogama - Idade
dos Jogadores da Fifa",
xlab = "Idade",
ylab = "Quantidade de Jogadores")
No histograma fica evidente que a maioria do jogadores da fifa possuem idade entre 20 e 25 anos ( mais de 2500 jogadores), e conforme mais velho, menos jogadadores existem. É perceptvivel que entre 30 e 40 anos a quantidade de jogadores é quase inexistente, nisso podemos observar que na Fifa, a partir dos 15 já há jogadores contratados, e depois dos 43/44 anos não existem.O Gáfico é totalmente assimétrico, pois a partir da metade (30), se fosse traçada uma linha, as duas partes seriam muito discrepantes.
#Representação do Sumário em gráfico Boxplot
BOXPLOT
boxplot(FifaData$Age,col = "yellowgreen",main="Boxplot - Idade
dos Jogadores da Fifa")
No gráfico boxplot fica evidente que a variável estudada é assimetrica por conta da dispersão de informações. A mediana das idades se encontra em 25 anos, o grupo de pessoas com 15 anos é visto como a menor idade encontrada dentro da Fifa, segundo mostra a linha do minimo.A maior idade são as pessoas com 40 anos, depois disso observa-se que há outliers, representando a dispersão de pessoas com mais de 40 anos.