Fixed correlations with some totals

PreparingData.R

@@ -265,6 +265,51 @@ aerials <- laLigaPlayers %>% select(all_of(c("aerials_won.1920", "aerials_lost.1
     aerials_contested <- rowSums(aerials)
     laLigaPlayers <- cbind(laLigaPlayers, "aerials_contested.1920" = aerials_contested)
     
+  # PENS_MADE
+    pens <- laLigaPlayers %>% select(all_of(c("pens_made.1718", "pens_att.1718")))
+    pens_pct <- round((pens[,1]/pens[,2])*100, 2)
+    laLigaPlayers <- cbind(laLigaPlayers, "pens_made_pct.1718" = pens_pct)
+    
+    pens <- laLigaPlayers %>% select(all_of(c("pens_made.1819", "pens_att.1819")))
+    pens_pct <- round((pens[,1]/pens[,2])*100, 2)
+    laLigaPlayers <- cbind(laLigaPlayers, "pens_made_pct.1819" = pens_pct)
+    
+    pens <- laLigaPlayers %>% select(all_of(c("pens_made.1920", "pens_att.1920")))
+    pens_pct <- round((pens[,1]/pens[,2])*100, 2)
+    laLigaPlayers <- cbind(laLigaPlayers, "pens_made_pct.1920" = pens_pct)
+    
+  # PENS_SAVED
+    pens <- laLigaPlayers %>% select(all_of(c("pens_saved.1718", "pens_allowed.1718")))
+    pens_total <- rowSums(pens)
+    laLigaPlayers <- cbind(laLigaPlayers, "pens_played.1718" = pens_total)
+    pens_pct <- round((pens[,1]/pens_total)*100, 2)
+    laLigaPlayers <- cbind(laLigaPlayers, "pens_saved_pct.1718" = pens_pct)
+    
+    pens <- laLigaPlayers %>% select(all_of(c("pens_saved.1819", "pens_allowed.1819")))
+    pens_total <- rowSums(pens)
+    laLigaPlayers <- cbind(laLigaPlayers, "pens_played.1718" = pens_total)
+    pens_pct <- round((pens[,1]/pens[,2]+pens[,1])*100, 2)
+    laLigaPlayers <- cbind(laLigaPlayers, "pens_saved_pct.1819" = pens_pct)
+    
+    pens <- laLigaPlayers %>% select(all_of(c("pens_saved.1920", "pens_allowed.1920")))
+    pens_total <- rowSums(pens)
+    laLigaPlayers <- cbind(laLigaPlayers, "pens_played.1718" = pens_total)
+    pens_pct <- round((pens[,1]/pens[,2]+pens[,1])*100, 2)
+    laLigaPlayers <- cbind(laLigaPlayers, "pens_saved_pct.1920" = pens_pct)
+    
+  # TACKLES
+    tackles <- laLigaPlayers %>% select(all_of(c("tackles_won.1718", "tackles.1718")))
+    tackles_pct <- round((tackles[,1]/tackles[,2])*100, 2)
+    laLigaPlayers <- cbind(laLigaPlayers, "tackles_pct.1718" = pens_pct)
+    
+    tackles <- laLigaPlayers %>% select(all_of(c("tackles_won.1819", "tackles.1819")))
+    tackles_pct <- round((tackles[,1]/tackles[,2])*100, 2)
+    laLigaPlayers <- cbind(laLigaPlayers, "tackles_pct.1819" = pens_pct)
+    
+    tackles <- laLigaPlayers %>% select(all_of(c("tackles_won.1920", "tackles.1920")))
+    tackles_pct <- round((tackles[,1]/tackles[,2])*100, 2)
+    laLigaPlayers <- cbind(laLigaPlayers, "tackles_pct.1920" = pens_pct)
+
 ##############################################
 # Limpieza muestras erroneas temporada 18-19 #
 ##############################################