[fix]passAllの修正

R/make_data.R

@@ -167,9 +167,10 @@ get_action_Allplayer <- function(players, action) {
 
 get_pass_Allplayer <- function(players, pass) {
     pass <- pass %>%
-        dplyr::select(step, px, py, pass_team = team, ball_x, ball_y, ball_vx, ball_vy, pass_scc)
+        dplyr::select(step,pass_team = team,ball_x,ball_y,ball_vx,ball_vy,next_ball_x,next_ball_y,next_ball_vx,next_ball_vy,pass,pass_scc)
     output <- players %>%
-        dplyr::inner_join(pass, by = "step")
+        dplyr::inner_join(pass, by = "step") %>%
+        dplyr::distinct(step,team,unum, .keep_all = TRUE)
     return(output)
 }
 
@@ -185,7 +186,7 @@ get_pass <- function(kick) {
     output <- kick |>
         dplyr::filter(pass == TRUE) %>%
         distinct(step, .keep_all = TRUE) %>%
-        dplyr::select(step,team,numu,px,py,pvx,pvy,ball_x,ball_y,ball_vx,ball_vy,next_ball_x,next_ball_y,next_ball_vx,next_ball_vy,pass,pass_scc)
+        dplyr::select(step,team,unum,px,py,pvx,pvy,ball_x,ball_y,ball_vx,ball_vy,next_ball_x,next_ball_y,next_ball_vx,next_ball_vy,pass,pass_scc)
 
     return(output)
 }