R中的正则表达式：匹配所有内容，但不匹配“某些字符串”[重复]

Question

另一个问题的答案解释how to match a string not containing a word。

问题（对我来说）是给出的解决方案在 R 中不起作用。

我经常从现有向量创建一个data.frame() 并想清理我的工作区。例如，如果我的工作区包含：

> ls()
[1] "A"   "B"   "dat" "V"
>

而我只想保留dat，我必须使用以下命令对其进行清理：

> rm(list=ls(pattern="A"))
> rm(list=ls(pattern="B"))
> rm(list=ls(pattern="V"))
> ls()
[1] "dat"
> 

（其中A、B和V只是my.first.vector等大量复杂名称的示例，这些名称不易与rm(list=ls(pattern="[ABV]"))匹配）。

告诉rm() 删除除dat 之外的所有内容是最方便的（对我而言），但问题是链接问答中给出的解决方案不起作用：

> rm(list=ls(pattern="^((?!dat).)*$"))
Error in grep(pattern, all.names, value = TRUE) : 
  invalid regular expression '^((?!dat).)*$', reason 'Invalid regexp'
> 

那么 如何 我如何匹配 R 中除了 dat 之外的所有内容？

Answer 1

这将删除除 dat 之外的所有对象。 （如果要删除名称也以点开头的对象，请使用 ls 参数 all.names = TRUE。）

rm( list = setdiff( ls(), "dat" ) )

将"dat" 替换为名称向量，例如c("dat", "some.other.object")，如果要保留多个对象；或者，如果多个对象都可以通过正则表达式轻松匹配，请尝试类似这样的操作，删除名称不以 "dat" 开头的所有对象：

rm( list = setdiff( ls(), ls( pattern = "^dat" ) ) )

另一种方法是保存数据save("dat", file = "dat.RData")，退出R，启动新的R会话并加载数据1oad("dat.RData")。另请注意 this method 重启 R.

Answer 2

Negative look-around 需要 R 中的 perl=TRUE 参数。因此，您将无法直接将 ls(pattern = ...) 与该正则表达式一起使用。或者你可以这样做：

rm(list = grep("^((?!dat).)*$", ls(), perl=TRUE, value=TRUE))

如果您正在寻找不精确的匹配项。如果您正在寻找完全匹配，您应该按照 Ferdinand 的评论进行操作：

rm(list=ls()[ls() != "dat"])