From b81373afcda95f14b933361e8365a1ec602aa8d1 Mon Sep 17 00:00:00 2001 From: takumiamano Date: Wed, 28 Sep 2022 19:01:34 +0900 Subject: [PATCH] =?UTF-8?q?[fix]=E3=82=AD=E3=83=83=E3=82=AF=E5=BE=8C?= =?UTF-8?q?=E3=81=AE=E3=83=9C=E3=83=BC=E3=83=AB=E3=81=AE=E4=BD=8D=E7=BD=AE?= =?UTF-8?q?=E3=82=92=E5=8F=82=E7=85=A7=E3=81=A7=E3=81=8D=E3=82=8B?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- R/make_data.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/R/make_data.R b/R/make_data.R index ec8d9df..8643aab 100644 --- a/R/make_data.R +++ b/R/make_data.R @@ -87,7 +87,9 @@ get_kick <- function(action) { dplyr::mutate(after_unum = lead(unum)) %>% dplyr::mutate(a_sameteam = (after_team == team)) %>% dplyr::mutate(a_sameunum = (after_unum == unum)) %>% - select(-c(command, pvx, pvy, body, neck)) + select(-c(command, pvx, pvy, body, neck)) %>% + dplyr::mutate(next_ball_x = lead(ball_x)) %>% + dplyr::mutate(next_ball_y = lead(ball_y)) return(output) @@ -122,9 +124,7 @@ get_pass <- function(kick) { dplyr::mutate(pass_scc = (a_sameteam & !a_sameunum)) %>% dplyr::mutate(pass = ((a_sameteam & !a_sameunum) | (!a_tackle_scc & !a_sameteam))) %>% dplyr::filter(pass) %>% - select(-c(a_tackle_scc,tackle_scc, pass, a_sameteam, a_sameunum, after_team, after_unum)) %>% - dplyr::mutate(next_ball_x = lead(ball_x)) %>% - dplyr::mutate(next_ball_y = lead(ball_y)) + select(-c(a_tackle_scc,tackle_scc, pass, a_sameteam, a_sameunum, after_team, after_unum)) return(output) } -- GitLab