str_replace_all(按分组)

任何你不只是使用的理由 teams_names_replace 作为查找表:

library(dplyr)

df |> 
  mutate(team_name_long = teams_names_replace[team_name])

如果你想在没有找到匹配项的情况下保留球队名称,你可以执行以下操作:

df |> 
  mutate(team_name_long = coalesce(teams_names_replace[team_name], team_name))

尽管你标记了tidyverse,但对其他人来说,基本的R方法 match :

ix <- match(df$team_name, names(teams_names_replace))

df$team_name_long <- ifelse(!is.na(ix), teams_names_replace[ix], df$team_name)

#   country team_name     team_name_long     
#   <chr>   <chr>         <chr>              
# 1 ENG     Huddersfield  Huddersfield Town  
# 2 ESP     Betis         Real Betis         
# 3 ITA     Inter         Internazionale     
# 4 GER     Leverkusen    Bayer Leverkusen   
# 5 FRA     Paris S-G     Paris Saint-Germain
# 6 BRA     Internacional Internacional