R语言正则表达式问题：移除最后一个指定模式及其后续内容

你的正则sub(".*Content.*^", "", variable )无效的原因很明确：^是匹配行开头的锚点，放在表达式末尾完全起不到作用，而且.*Content.*会匹配整个字符串，所以替换后结果为空。

要实现移除最后一次出现的"Content"及其之后的内容，可以用两种方法：

方法一：调整正则表达式 #

利用正则的贪婪匹配特性，捕获最后一个"Content"之前的所有内容，替换为捕获组即可：

variable <- "bla bla bla bla bla Content bla bla bla Content bla bla bla bla"
# 捕获最后一个Content前的所有内容
result <- sub("^(.*)Content.*$", "\\1", variable)
# 移除末尾多余空格（可选）
result <- trimws(result)

运行后result就是你要的bla bla bla bla bla Content bla bla bla。

方法二：字符串分割重组（更直观） #

如果觉得正则容易绕晕，可以用分割再拼接的方式，逻辑更清晰：

variable <- "bla bla bla bla bla Content bla bla bla Content bla bla bla bla"
# 按"Content"分割字符串
parts <- strsplit(variable, "Content", fixed = TRUE)[[1]]
# 去掉最后一段（最后一个Content之后的内容），再拼接剩余部分
result <- paste(parts[-length(parts)], collapse = "Content")

这种方法不需要考虑正则的匹配规则，适合对正则不太熟悉的场景。

内容的提问来源于stack exchange，提问作者D. Studer