R语言中如何仅对Sample列进行完全匹配的文本替换？

你遇到的问题核心是分步替换时，前面替换产生的新字符串会被后续规则误匹配。这里给两个简单直接的解决办法：

方法1：用str_replace_all配合正则精确匹配 #

一次性定义所有替换规则，用^（字符串开头）和$（字符串结尾）限定只匹配完全等于目标值的字符串，避免部分匹配。

示例代码：

library(dplyr)
library(stringr)

# 模拟你的数据框
df <- tibble(Sample = c("A", "B", "C", "Cat", "AB"))

# 一次性完成精确替换
df <- df %>%
  mutate(Sample = str_replace_all(
    Sample,
    c("^A$" = "Cat", "^B$" = "Dog", "^C$" = "Bat")
  ))

执行后结果："A"变"Cat"，"C"变"Bat"，而原有的"Cat"不会被修改，完美避免连锁替换。

方法2：用case_when做精准条件判断 #

如果觉得正则麻烦，case_when的逻辑更直观，直接判断字符串是否完全相等：

df <- df %>%
  mutate(Sample = case_when(
    Sample == "A" ~ "Cat",
    Sample == "B" ~ "Dog",
    Sample == "C" ~ "Bat",
    TRUE ~ Sample  # 所有不匹配的情况保持原内容
  ))

这个方法完全基于精确相等判断，不会出现任何误匹配，新手也能快速理解。

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