Quit goalkeepers

PreparingData.R

@@ -86,6 +86,7 @@ library(tidyverse) # filter(), select(), contains()
 # GLOBALES #
 ############
 fusion <- 0
+quitarPorteros <- 0
 
 ######################################
 #          LECTURA de DATOS          #
@@ -409,6 +410,10 @@ for (variable in variables) {
 }
 variablesWithSeason <- c(paste(variables, "1718", sep = ""), paste(variables, "1819", sep = ""), paste(variables, "1920", sep = ""))
 
+if (quitarPorteros == 1){
+  laLigaPlayers <- laLigaPlayers[laLigaPlayers$position.1718 != "GK", ]
+}
+
 laLigaPlayersStudyAux <- laLigaPlayers %>% select(all_of(c("player", variablesWithSeason)))
 
 laLigaPlayersStudy <- NULL
@@ -420,9 +425,17 @@ for (variable in variables) {
   }
   laLigaPlayersStudy <- cbind(laLigaPlayersStudy, aux2)
 }
-laLigaPlayersStudy <- cbind(laLigaPlayers %>% select(all_of(c("player"))), laLigaPlayersStudy)
-laLigaPlayersStudy <- as_tibble(laLigaPlayersStudy)
-names(laLigaPlayersStudy) <- c("player", globalColNames)
+namePlayers <- laLigaPlayers %>% select(all_of(c("player")))
+
+#laLigaPlayersStudy <- cbind(laLigaPlayers %>% select(all_of(c("player"))), laLigaPlayersStudy)
+#names(laLigaPlayersStudy) <- c("player", globalColNames)
+
+rownames(laLigaPlayersStudy) <- namePlayers$player
+laLigaPlayersStudy <- data.frame(laLigaPlayersStudy)
+names(laLigaPlayersStudy) <- globalColNames
+laLigaPlayersStudy$age <- laLigaPlayers$age.1920
+laLigaPlayersStudy$height <- laLigaPlayers$height.1920
+names(laLigaPlayersStudy)
 
 
   
\ No newline at end of file