如何从R中的工作区中删除除一个对象以外的所有对象？

我有一个有很多对象的工作区，我想删除除一个以外的所有对象。理想情况下，我希望避免键入rm（obj.1、obj.2…obj.n）。是否可以指示删除除这些对象以外的所有对象

下面是一个简单的构造，使用setdiff：

rm（list=setdiff（ls（），“x”））

这是一个完整的例子。运行此操作的风险由您自己承担-它将删除除x之外的所有变量：

x&lt；-1.
y&lt；-2.
z&lt；-3.
ls（）
[1] “x”“y”“z”
rm（list=setdiff（ls（），“x”））
ls（）
[1] “x”