Как удалить все объекты, кроме одного из рабочей области в R?

У меня есть рабочее пространство с большим количеством объектов, и я хотел бы удалить все, кроме одного. В идеале мне бы хотелось не набирать rm(obj.1, obj.2... obj.n). Можно ли указать remove all objects but these ones?

Ответ 1

Вот простая конструкция, которая сделает это, используя 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"

Ответ 2

Использование функции 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"

Ответ 3

Я думаю, что другой вариант - открыть рабочую область в RStudio, а затем сменить список на сетку в правом верхнем углу среды (изображение ниже). Затем отметьте объекты, которые хотите очистить, и, наконец, нажмите на кнопку очистки.

enter image description here

Ответ 4

Чтобы сохранить все объекты, имена которых соответствуют шаблону, вы можете использовать grep, например:

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

Ответ 6

Я просто потратил несколько часов на поиск ответа на подобный, но немного другой вопрос - мне нужно было удалять все объекты в R (включая функции), за исключением нескольких векторов.

Один из способов сделать это:

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

Где векторы, которые я хочу сохранить, называются 'a' и 'c'.

Надеюсь, это поможет любому, кто ищет то же самое решение!

Ответ 7

Это использует опцию ls() pattern, если у вас много объектов с тем же шаблоном, который вы не хотите хранить:

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

Ответ 8

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

Ответ 9

Изнутри функции rm все объекты в .GlobalEnv, за исключением функции

initialize <- function(country.name) {

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

}

Ответ 10

Как насчет этого?

# 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)
}

Ответ 11

Предполагая, что вы хотите удалить каждый объект, кроме df, из среды:

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

Ответ 12

пусть думает по-другому, что, если мы хотим удалить группу? попробуйте это,

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

Мне лично не нравится слишком много таблиц, переменных на моем экране, но я не могу избежать их использования. Поэтому я называю временные вещи, начинающиеся с "xxx", поэтому я могу удалить их после того, как он больше не используется.

Ответ 13

Ниже будут удалены все объекты с консоли.

rm(list = ls())