Density plot for 3 season

UnivariateAnalysis.R

@@ -3,6 +3,21 @@ setwd("/home/mariogt/TFGs/Estadistica/")
 #####################################
 #             FUNCIONES             #
 #####################################
+distBarFor3Season <- function(data, variable) {
+  age <- c()
+  for (i in 1:3) {
+    season <- switch(i, ".1718", ".1819", ".1920")
+    var <- unname(select(data, contains(paste(variable, season, sep = ""))))
+    n <- dim(var)[1]
+    colnames(var) <- "Age"
+    age <- rbind(age, var)
+  }
+  df <- data.frame(age, rep(c("17-18", "18-19", "19-20"), times = rep(n, times=3)))
+  colnames(df) <- c("edad", "temporada")
+  ggplot(df, aes(x = edad, fill = temporada)) + geom_density(alpha = 0.5)
+}
+
+distBarFor3Season(train, "age")
 # Histograms for all seasons for the variable entered by parameter.
 barpFor3Season <- function(data, variable) {
   par(mfrow = c(1, 3))
@@ -139,15 +154,27 @@ ids <- t(ids)
       ########
       # Edad #
       ########
+  # Distribucion (Gráficos de barras)
+  distBarFor3Season(train, "age")
+  # Box plots
       ##########
       # Altura #
       ##########
+  # Distribucion (Gráficos de barras)
+  distBarFor3Season(train, "height")
+  # Box plots
       ################
       # Pierna buena #
       ################
+  # Distribución (Grafico de tarta)
+  foot <- train %>% select("foot.1718")
+  library(lessR)
+  PieChart(foot.1718, hole = FALSE, values = "%", data = foot,
+           main = "Distribución de pierna dominante", fill = brewer.pal(3, "Set1"),)
       ##################################
       # Goles y asistencias por 90 min #
-      ##################################
+      ##################################.
+      distBarFor3Season(train, "goals_assists_per90")
       univariantAnalysis(train, "goals_assists_per90", ids)
       ######
       # xG #
@@ -164,7 +191,7 @@ ids <- t(ids)
       ##################################
       # Porcentaje de tiros a porteria #
       ##################################
-      
+      # univariantAnalysis(train, "xa", ids)
       #######################
       # Porcentaje de pases #
       #######################
@@ -197,9 +224,11 @@ ids <- t(ids)
       ####################################
       # Porcentaje de presiones exitosas #
       ####################################
+      # univariantAnalysis(train, "xa", ids)
       ##################################
       # Porcentaje de regates exitosos #
       ##################################
+      # univariantAnalysis(train, "xa", ids)
       ####################
       # Faltas cometidas #
       ####################
@@ -207,6 +236,7 @@ ids <- t(ids)
       #######################################
       # Porcentaje de juegos aereos ganados #
       #######################################
+      # univariantAnalysis(train, "xa", ids)
       ######################
       # Penalties atajados #
       ######################
@@ -218,7 +248,7 @@ ids <- t(ids)
       ###################################
       # Porcentaje de ocasiones paradas #
       ###################################
-      univariantAnalysis(train, "")
+      # univariantAnalysis(train, "")
 
 laLigaPlayers$foot <- as.factor(laLigaPlayers$foot)