R语言中从字符串提取指定字符的问题（含特殊字符转义需求）

你的问题出在正则表达式中特殊字符未正确转义，比如-在字符类[]里会被当作范围界定符，导致匹配出错。以下是两种可靠的解决方法：

方法一：使用stringr包（推荐） #

stringr包提供了自动转义正则特殊字符的函数，无需手动处理：

# 安装并加载包（首次使用需安装）
install.packages("stringr")
library(stringr)

# 定义输入
chars.to.extract <- ";)-"
strings.to.search <- c("a;b-1","1)")

# 转义特殊字符后构建正则，移除所有非目标字符
target_pattern <- paste0("[^", str_escape(chars.to.extract), "]")
result <- str_remove_all(strings.to.search, target_pattern)

# 查看结果
result
# 输出：[1] ";-" ")"

方法二：Base R原生实现 #

如果不想依赖第三方包，可以自定义转义函数处理特殊字符：

# 自定义正则转义函数
escape_regex_chars <- function(x) {
  # 转义正则中的特殊元字符
  escaped <- gsub("([.|()\\^{}+$*?\\[\\]])", "\\\\\\1", x)
  # 将'-'移到字符类末尾，避免被当作范围符
  if (grepl("-", escaped)) {
    escaped <- paste0(gsub("-", "", escaped), "-")
  }
  escaped
}

# 定义输入
chars.to.extract <- ";)-"
strings.to.search <- c("a;b-1","1)")

# 转义后处理
escaped_chars <- escape_regex_chars(chars.to.extract)
result <- gsub(paste0("[^", escaped_chars, "]"), "", strings.to.search)

# 查看结果
result
# 输出：[1] ";-" ")"

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