[fix]ボールの加速度が参照したくなった

R/make_data.R

@@ -105,7 +105,7 @@ get_action_Allplayer <- function(players,action){
 
 get_pass_Allplayer <- function(players,pass){
     pass <- pass  %>% 
-        dplyr::select(step,ax,ay,pass_team=team,ball_x,ball_y,pass_scc)
+        dplyr::select(step,ax,ay,pass_team=team,ball_x,ball_y,ball_vx,ball_vy,pass_scc)
     output <- players  %>% 
         dplyr::inner_join(pass,by = "step")
     return(output)