r - 除以零解决方法

Question

我正在计算多场比赛的每次射门传球次数，并按球队进行汇总。有几场比赛是零射门。对于这个分析，我觉得用 1 代替 0 比省略游戏更重要。我将如何在 R 中做到这一点？这是我的代码。

match_df <- data.frame(TeamName = c("Team A", "Team A", "Team A", "Team B", "Team B", "Team B"), Passes = c(325,300,350,250,275,300), Shots = c(10,8,12,5,5,0))

overview <- match_df %>% 
  mutate(PassesPerShot = Passes / Shots) %>% 
  select(TeamName, PassesPerShot) %>% 
  group_by(TeamName) %>% 
  summarise(across(everything(), ~round(mean(.),digits = 1))) %>% 
  arrange(desc(PassesPerShot))

Answer 1

我们可以替换为1

library(dplyr)
match_df %>% 
     mutate(PassesPerShot = Passes / replace(Shots, Shots == 0, 1))