先明确你的需求和测试数据：
测试字符串：

test <- "i really wasn aware and i wasnt aware at all. but i wasn't aware. just wasn't."

期望输出：

output [1] "i really wasn't aware and i wasn't aware at all. but i wasn't aware. just wasn't."

你之前尝试的gsub("\\<wasn*.\\>", "wasn't", test)不符合预期，主要是正则表达式的逻辑出了问题，我来拆解下问题所在：

• wasn* 里的*是匹配前面的n字符0次或多次，这会意外匹配到was（0个n）开头的单词，比如如果有wash也会被命中，完全偏离了你的需求；
• .是匹配任意单个字符，但你需要的是匹配wasn开头的完整单词，不管后面有没有其他字符（比如wasnt里的t），而不是固定匹配一个字符；
• 这个正则还会漏掉单独的wasn单词（因为wasn后面没有字符，.匹配不到），同时错误命中其他无关单词。

下面给你两种可行的解决方案：

方案1：精准匹配已知目标单词（适合明确只有wasn和wasnt的场景） #

如果你的场景里只有这两种需要替换的单词，可以直接写明确的匹配规则：

gsub("\\b(wasn|wasnt)\\b", "wasn't", test)

解释：

• \\b是单词边界，确保我们匹配的是完整的单词，不会误匹配到比如wasnting这种更长单词的一部分；
• (wasn|wasnt)是捕获组，精准匹配wasn或者wasnt这两个单词；
• 直接替换成目标字符串wasn't即可。

方案2：通用匹配所有以wasn开头且不含'的完整单词（适合有更多变体的场景） #

如果未来可能出现wasntt、wasnx这类以wasn开头的单词，且都需要替换成wasn't，同时保留原本正确的wasn't不变，可以用负向前瞻来排除已带'的情况：

gsub("\\bwasn(?!')\\w*\\b", "wasn't", test)

解释：

• \\bwasn匹配单词开头的wasn；
• (?!')是负向前瞻，确保wasn后面紧跟的不是'，这样就不会匹配到已经正确的wasn't；
• \\w*匹配0个或多个单词字符（字母、数字、下划线），覆盖wasn后面的所有后缀；
• \\b确保匹配到完整的单词结尾。

运行上述任意一段代码，都能得到你想要的预期输出：

[1] "i really wasn't aware and i wasn't aware at all. but i wasn't aware. just wasn't."

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