[fix]パスしているチーム、ドリブルしてるチームをわかりやすくした

R/make_data.R

@@ -5,6 +5,7 @@ get_player <- function(rcg, name) {
         dplyr::select(
             step,
             team = name,
+            side,
             unum,
             px = x,
             py = y,
@@ -91,11 +92,19 @@ get_kick <- function(action) {
     return(output)
 }
 
-get_action_Allplayer <- function(players,action){
-    action <- action  %>% 
-        dplyr::select(c("step","ball_x","ball_y","pass_scc"))
+get_pass_Allplayer <- function(players,pass){
+    pass <- pass  %>% 
+        dplyr::select(step,pass_team=team,ball_x,ball_y,pass_scc)
+    output <- players  %>% 
+        dplyr::inner_join(pass,by = "step")
+    return(output)
+}
+
+get_dribble_Allplayer <- function(players,dribble){
+    dribble <- dribble  %>% 
+        dplyr::select(step,dribble_team=team,ball_x,ball_y,dribble_scc)
     output <- players  %>% 
-        dplyr::inner_join(action,by = "step")
+        dplyr::inner_join(dribble,by = "step")
     return(output)
 }