如何在R语言中为不含", TX"的字符串添加指定格式内容？

首先构造示例数据集：

df <- data.frame(
  DATA = c(
    "PRETEND COUNTY JP",
    "FAKE COUNTY,TX JP 1.1",
    "Madeup City,TX",
    "Not Real County, JP 2.5"
  ),
  stringsAsFactors = FALSE
)

方法一：使用Base R实现 #

通过grepl判断字符串是否包含目标子串，结合sub完成替换：

# 处理逻辑
df$DATA <- ifelse(
  !grepl(", TX", df$DATA, fixed = TRUE),
  sub("(,?\\s)JP", ", TX JP", df$DATA),
  df$DATA
)

方法二：使用stringr包实现（更直观） #

如果习惯使用tidyverse生态工具，可用stringr包的函数：

library(stringr)

df$DATA <- case_when(
  !str_detect(df$DATA, fixed(", TX")) ~ str_replace(df$DATA, "(,?\\s)JP", ", TX JP"),
  TRUE ~ df$DATA
)

代码逻辑说明 #

1. 匹配判断：grepl/str_detect配合fixed=TRUE，精准检查字符串是否包含", TX"，避免正则语法干扰。
2. 替换规则：正则(,?\\s)JP匹配两种模式：
   • 空格+JP（如"PRETEND COUNTY JP"中的" JP"）
   • 逗号+空格+JP（如"Not Real County, JP 2.5"中的", JP"）
     将匹配到的部分替换为", TX JP"，从而在正确位置插入", TX"。
3. 保留原内容：已经包含", TX"的字符串直接保留，不做修改。

处理后输出的数据集如下：

> df
                     DATA
1    PRETEND COUNTY, TX JP
2 FAKE COUNTY,TX JP 1.1
3          Madeup City,TX
4 Not Real County, TX JP 2.5

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