Rのワークスペースから1つを除くすべてのオブジェクトを削除するにはどうすればよいですか？

たくさんのオブジェクトを含むワークスペースがあり、1つを除いてすべて削除したいと思います。理想的には、入力する必要はありませんrm(obj.1, obj.2... obj.n)。表示することは可能 remove all objects but these onesですか？

以下は、それを行う単純な構成ですsetdiff。

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

そして完全な例。あなた自身のリスクでこれを実行してください-それはを除くすべての変数を削除しますx：

x <- 1
y <- 2
z <- 3
ls()
[1] "x" "y" "z"

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

ls()
[1] "x"

パッケージのkeep関数を使用するgdataと非常に便利です。

> ls()
[1] "a" "b" "c"

library(gdata)
> keep(a) #shows you which variables will be removed
[1] "b" "c"
> keep(a, sure = TRUE) # setting sure to TRUE removes variables b and c
> ls()
[1] "a"

私が思うに、別のオプションが RStudioに開いたワークスペースにあり、その後の環境（下の画像）の右上にあるグリッドにリストを変更します。次に、クリアしたいオブジェクトにチェックマークを付け、最後にクリアをクリックします。

似ているが少し異なる質問への回答を探すのに数時間費やしただけです-少数のベクトルを除いて、R内のすべてのオブジェクト（関数を含む）を削除できる必要がありました。

これを行う1つの方法：

rm(list=ls()[! ls() %in% c("a","c")])

保持したいベクトルの名前は「a」と「c」です。

これが同じ解決策を探している人に役立つことを願っています！

名前がパターンに一致するすべてのオブジェクトを保持するにはgrep、次のようにを使用できます。

to.remove <- ls()
to.remove <- c(to.remove[!grepl("^obj", to.remove)], "to.remove")
rm(list=to.remove)

v保持するオブジェクトの名前に置き換えます

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

ハットチップ：http : //r.789695.n4.nabble.com/Removing-objects-and-clearing-memory-tp3445763p3445865.html

これは ls()pattern、保持したくない同じパターンのオブジェクトが多数ある場合に、のオプションします。

> foo1 <- "junk"; foo2 <- "rubbish"; foo3 <- "trash"; x <- "gold"  
> ls()
[1] "foo1" "foo2" "foo3" "x"   
> # Let's check first what we want to remove
> ls(pattern = "foo")
[1] "foo1" "foo2" "foo3"
> rm(list = ls(pattern = "foo"))
> ls()
[1] "x"

require(gdata)
keep(object_1,...,object_n,sure=TRUE)
ls()

別の方法で考えてみましょう。グループを削除したい場合はどうでしょうか。これを試して、

 rm(list=ls()[grep("xxx",ls())]) 

個人的には、画面に表示されるテーブルや変数が多すぎますが、使用するのは避けられません。そこで、一時的なものには「xxx」で始まる名前を付け、使用されなくなった後に削除できるようにします。

関数内から、関数を除く.GlobalEnv内のすべてのオブジェクトをrm

initialize <- function(country.name) {

  if (length(setdiff(ls(pos = .GlobalEnv), "initialize")) > 0) {
    rm(list=setdiff(ls(pos = .GlobalEnv), "initialize"), pos = .GlobalEnv)
  }

}

ファイルのリストを保持するには、以下を使用できます。

rm(list=setdiff(ls(), c("df1", "df2")))

これはどう？

# Removes all objects except the specified & the function itself.

rme <- function(except=NULL){
  except = ifelse(is.character(except), except, deparse(substitute(except)))
  rm(list=setdiff(ls(envir=.GlobalEnv), c(except,"rme")), envir=.GlobalEnv)
}

環境からdf以外のすべてのオブジェクトを削除したい場合：

rm(list = ls(pattern="[^df]"))

# remove all objects but selected
rm(list = ls()[which("key_function" != ls())])

以下は、コンソールからすべてのオブジェクトを削除します

rm(list = ls())