New axis titles

UnivariateAnalysis.R

@@ -100,23 +100,27 @@ titleForYAxis <- function(variable) {
                   gca_fouled = "Acciones de creación de gol tras falta",
                   passes_intercepted = "Pases interceptados",
                   ball_recoveries = "Balones recuperados",
-                  pressure_regains = "Porcentaje de presiones exitosas",
+                  pressure_regains = "Cantidad de presiones exitosas",
                   dribbles = "Regates intentados",
                   dribbles_completed = "Regates conseguidos con éxito",
                   dribbles_completed_pct = "Porcentaje de regates exitosos",
                   fouls = "Faltas cometidas",
                   tackles_won = "Entradas con éxito",
                   tackles = "Entradas realizadas",
+                  tackles_pct = "Porcentaje de entradas con éxito",
                   aerials_won = "Balones aéreos ganados",
                   aerials_lost = "Balones aéreos pérdidos",
                   aerials_contested = "Balones aéreos disputados",
                   aerials_won_pct = "Porcenaje de balones aéreos ganados",
-                  pens_made = "Penalties marcados",
-                  pens_att = "Penalties intentados",
+                  pens_made = "Penaltis marcados",
+                  pens_att = "Penaltis intentados",
+                  pens_made_pct = "Porcentaje de penaltis acertados",
                   shots_on_target_against = "Tiros a puerta en contra",
                   goals_against_per90_gk = "Goles en contra por 90 min (Porteros)",
-                  pens_saved = "Penalties atajados",
-                  pens_allowed = "Penalties no parados",
+                  pens_saved = "Penaltis atajados",
+                  pens_allowed = "Penaltis no parados",
+                  pens_played = "Penaltis disputados",
+                  pens_saved_pct = "Porcentaje de éxito parando penaltis",
                   saves = "Paradas totales",
                   save_pct = "Porcentaje de ocasiones paradas",
                   "Variable no encontrada")
@@ -144,7 +148,8 @@ ids <- data.frame(laLigaPlayers$X)
       ########
       # Edad #
       ########
-  # Distribucion (Gráficos de barras)
+  # Distribucion (Densidades) -> Para hacer la discretización
+  ggplot(laLigaPlayers, aes(x = age.1920)) + geom_density(alpha = 0.5)
   # Box plots
   univariantAnalysis(laLigaPlayers, "age", ids, 0)
   # Busqueda del OUTLIER
@@ -153,8 +158,8 @@ ids <- data.frame(laLigaPlayers$X)
       ##########
       # Altura #
       ##########
-  # Distribucion (Densidades)
-  # distBarFor3Season(train, "height")
+  # Distribucion (Densidades) -> Para hacer la discretización
+  distBarFor3Season(train, "height")
   # Box plots
   univariantAnalysis(laLigaPlayers, "height", ids, 0)
       ################
@@ -176,11 +181,13 @@ ids <- data.frame(laLigaPlayers$X)
       ##############################
       # Pases realizados con éxito #
       ##############################
-  univariantAnalysis(laLigaPlayers, "passes_completed", ids, 2)
+  distBarFor3Season(laLigaPlayers, "passes_completed")
+  univariantAnalysis(laLigaPlayers, "passes_completed", ids, 0)
       ####################
       # Pases realizados #
       ####################
-  univariantAnalysis(laLigaPlayers, "passes", ids, 2)
+  distBarFor3Season(laLigaPlayers, "passes")
+  univariantAnalysis(laLigaPlayers, "passes", ids, 0)
       #######################
       # Porcentaje de pases #
       #######################
@@ -204,11 +211,11 @@ ids <- data.frame(laLigaPlayers$X)
       ############################################################################
       # Cantidad de ocasiones en las que un pase tiene como objetivo ese jugador #
       ############################################################################
-  univariantAnalysis(laLigaPlayers, "pass_targets", ids, 2)
+  univariantAnalysis(laLigaPlayers, "pass_targets", ids, 0)
       ##########################################
       # Cantidad de pases que recibe con éxito #
       ##########################################
-  univariantAnalysis(laLigaPlayers, "passes_received", ids, 2)
+  univariantAnalysis(laLigaPlayers, "passes_received", ids, 0)
       ###########################################
       # Porcentaje de pases recibidos con éxito #
       ###########################################