在R中为tibble的重复tourney_name按条件精准重命名

你遇到的问题核心是错误使用了全局字符串替换，str_replace_all会把所有匹配到的赛事名称统一替换成固定值，但你需要的是每个行的赛事名称和该行对应的年份绑定，正确做法是直接拼接列值，而非替换字符串。

步骤示例 #

假设你的tibble包含tourney_name、year和其他列，先构造模拟数据集：

library(tibble)
library(dplyr)
library(stringr)

# 模拟你的数据集
tourney_data <- tibble(
  tourney_name = c("Basel", "Basel", "Sydney", "Sydney"),
  year = c(2014, 2015, 2002, 2003),
  matches_played = c(12, 14, 10, 11)
)

正确批量处理方法 #

用dplyr::mutate结合字符串拼接函数，逐行将赛事名称与对应年份组合：

方法1：用基础R的paste函数

tourney_data <- tourney_data %>%
  mutate(tourney_name = paste(tourney_name, "(", year, ")", sep = ""))

方法2：用stringr::str_c更简洁

tourney_data <- tourney_data %>%
  mutate(tourney_name = str_c(tourney_name, " (", year, ")"))

如果不想覆盖原列，而是生成新列：

tourney_data <- tourney_data %>%
  mutate(tourney_full_name = str_c(tourney_name, " (", year, ")"))

为什么str_replace_all会出错？ #

如果之前你用了类似下面的代码，就会导致所有同名赛事都被替换成同一个年份：

# 错误示例：全局替换会忽略每行的年份差异
wrong_replacements <- c("Basel" = "Basel (2014)", "Sydney" = "Sydney (2002)")
tourney_data %>% mutate(tourney_name = str_replace_all(tourney_name, wrong_replacements))

这种方式是基于字符串匹配的全局替换，无法关联每行的year值，自然会出现不符合预期的结果。

内容的提问来源于stack exchange，提问作者Grant Weaver