通过分组str_replace_all

Question

我需要用长名称替换缩写名称。

但是，我在不应该更换的情况下遇到了错误的行为。此替换应尊重国家条件。

我正在使用：

library(tidyverse)

df <- structure(list(country = c("ENG", "ESP", "ITA", "GER", "FRA", 
"BRA"), team_name = c("Huddersfield", "Betis", "Inter", "Leverkusen", 
"Paris S-G", "Internacional")), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -6L))

teams_names_replace <-
  c(
    "Huddersfield" = "Huddersfield Town",
    "Inter" = "Internazionale",
    "Paris S-G" = "Paris Saint-Germain",
    "Betis" = "Real Betis",
    "Leverkusen" = "Bayer Leverkusen"
  )

df %>%
  mutate(team_name_long = str_replace_all(
    team_name,
    c(teams_names_replace)))

*group_by（国家/地区）不起作用

Answer 1

您不只使用

teams_names_replace

作为查找表的任何原因：

library(dplyr)

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