R语言：如何全局匹配任意格式的CEO字符串并统一替换？

核心思路 #

利用R语言gsub()函数的忽略大小写参数，无需手动枚举所有大小写变体，即可匹配任意格式的"ceo"（包括ceo/Ceo/CEO/cEo等），还可扩展匹配需要替换的其他关键词（如owner/executive）。

修正后的代码 #

仅替换所有大小写的"ceo"

aiprm$job_title <- gsub("ceo", "CEO", aiprm$job_title, ignore.case = TRUE)

同时替换"ceo"/"owner"/"executive"的所有大小写变体

aiprm$job_title <- gsub("ceo|owner|executive", "CEO", aiprm$job_title, ignore.case = TRUE)

原代码的问题分析 #

1. 大小写枚举不全：手动罗列ceo|CEO|Ceo等组合，容易遗漏cEo/CEo等变体，用ignore.case = TRUE可一次性覆盖所有大小写情况。
2. 正则写法错误：原代码中的\ceo/\CEO是无效写法，R中反斜杠需转义为\\，且此类写法会错误匹配非目标字符串。
3. 匹配范围受限：原代码写CEO （带空格）仅能匹配空格后的CEO，无法覆盖//&等符号前后的变体，而简单匹配ceo+忽略大小写参数可覆盖所有位置的目标子串。

测试验证 #

创建测试向量验证替换效果：

test_jobs <- c("ceo", "Ceo", "CEO", "ceo/owner", "ceo/founder", 
               "Broker / ceo", "Business ceo/ Health Coach", 
               "ceo& Producer", "ceo/ Creative Director", 
               "ceo/Designer", "ceo/Operator", "Owner", "executive", "CeO")

# 执行替换
result <- gsub("ceo|owner|executive", "CEO", test_jobs, ignore.case = TRUE)
print(result)

输出结果：

[1] "CEO"                     "CEO"                     "CEO"                    
 [4] "CEO/CEO"                 "CEO/founder"             "Broker / CEO"           
 [7] "Business CEO/ Health Coach" "CEO& Producer"           "CEO/ Creative Director" 
[10] "CEO/Designer"            "CEO/Operator"            "CEO"                    
[13] "CEO"                     "CEO"

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