Comment puis-je supprimer tous les objets sauf un de l'espace de travail dans R?

J'ai un espace de travail avec beaucoup d'objets et je voudrais supprimer tout sauf un. Idéalement, je voudrais éviter d'avoir à taper rm(obj.1, obj.2... obj.n). Est-il possible d'indiquer remove all objects but these ones?

Voici une construction simple qui le fera, en utilisant setdiff:

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

Et un exemple complet. Exécutez cela à vos risques et périls - cela supprimera toutes les variables sauf x:

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

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

ls()
[1] "x"

L'utilisation de la keepfonction du gdatapackage est assez pratique.

> 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"

Je pense qu'une autre option est d'ouvrir l'espace de travail dans RStudio puis de changer la liste en grille en haut à droite de l'environnement (image ci-dessous). Cochez ensuite les objets que vous souhaitez effacer et enfin cliquez sur effacer.

Je viens de passer plusieurs heures à chercher la réponse à une question similaire mais légèrement différente - j'avais besoin de pouvoir supprimer tous les objets dans R (y compris les fonctions) à l'exception d'une poignée de vecteurs.

Une façon de procéder:

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

Où les vecteurs que je veux garder sont nommés «a» et «c».

J'espère que cela aidera toute personne recherchant la même solution!

Pour conserver tous les objets dont les noms correspondent à un motif, vous pouvez utiliser grep, comme ceci:

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

Remplacez vpar le nom de l'objet que vous souhaitez conserver

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

pointe du chapeau: http://r.789695.n4.nabble.com/Removing-objects-and-clearing-memory-tp3445763p3445865.html

Cela profite de ls()l' patternoption de, dans le cas où vous avez beaucoup d'objets avec le même motif que vous ne voulez pas conserver:

> 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()

réfléchissons différemment, que se passe-t-il si nous voulons supprimer un groupe? essaye ça,

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

Personnellement, je n'aime pas trop de tableaux, de variables sur mon écran, mais je ne peux pas éviter de les utiliser. Je nomme donc les éléments temporaires commençant par "xxx", afin de pouvoir les supprimer une fois qu'ils ne sont plus utilisés.

À partir d'une fonction, rm tous les objets dans .GlobalEnv sauf la fonction

initialize <- function(country.name) {

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

}

Pour conserver une liste de fichiers, on peut utiliser:

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

Que dis-tu de ça?

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

en supposant que vous souhaitez supprimer tous les objets sauf df de l'environnement:

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

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

Ce qui suit supprimera tous les objets de votre console

rm(list = ls())