Jak mogę dokładnie wyczyścić mój obszar roboczy R, zachowując określone obiekty?

Question

Przypuśćmy, że mam problem z niektórymi danymi, wiążąc wektory razem, jak to mam robić w leniwe niedzielne popołudnie.

x <- rnorm(25, mean = 65, sd = 10) 
    y <- rnorm(25, mean = 75, sd = 7) 
    z <- 1:25 

    dd <- data.frame(mscore = x, vscore = y, caseid = z) 

Ja teraz mam moją nową dataframe dd, co jest wspaniałe. Ale jest też wciąż detrytusu z moich wcześniejszych slicings i dicings:

> ls() 
    [1] "dd"  "x"   "y"   "z"   

Co znajduje się w prosty sposób, aby oczyścić moje miejsce pracy, jeśli nie trzeba już moje kolumny „źródło”, ale chcę zachować dataframe? Oznacza to, że teraz Skończyłem manipulowania danymi Chciałbym tylko mieć dd i żaden z mniejszych zmiennych, które mogą przypadkowo maskują dalszej analizy:

> ls() 
    [1] "dd" 

Czuję, że rozwiązanie musi mieć postać rm(ls[ -(dd) ]) lub coś w tym stylu, ale nie wiem, jak powiedzieć "proszę posprzątać wszystko, ALE następujące obiekty."

Answer 1

Podejdę do tego, tworząc oddzielne środowisko do przechowywania wszystkich zmiennych śmieciowych, tworząc ramkę danych za pomocą with(), a następnie kopiując te, które chcesz zachować w głównym środowisku. Ma to tę zaletę, że jest uporządkowana, ale także zachowuje wszystkie swoje obiekty na wypadek, gdybyś chciał ponownie na nie spojrzeć.

temp <- new.env() 
with(temp, { 
    x <- rnorm(25, mean = 65, sd = 10) 
    y <- rnorm(25, mean = 75, sd = 7) 
    z <- 1:25 
    dd <- data.frame(mscore = x, vscore = y, caseid = z) 
    } 
) 

dd <- with(temp,dd) 

To daje:

> ls() 
[1] "dd" "temp" 
> with(temp,ls()) 
[1] "dd" "x" "y" "z" 

i oczywiście można pozbyć się śmieci środowisko, jeśli naprawdę chcesz.

Answer 2

Oto podejście używając setdiff:

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

Answer 3

Odkąd pamiętam, że komentarze nie obsługują pełne formatowanie, chciałem odpowiedzieć na zalecenia Hadley tutaj. Niektóre z mojego istniejącego kodu - może niechlujnie - ma tendencję do pracy tak:

caseid <- 1:25 
    height <- rnorm(25, mean = 150, sd = 15) 
    hd  <- data.frame(caseid, height) 
    hd  <- hd [-(7), ] # Removing a case 
    library(ggplot2) 
    qplot(x = caseid, y = height, data = hd) # Plots 25 points 

W powyższym kodzie, qplot() będzie wykreślić 25 punktów, i myślę, że to dlatego, że moje zmienne globalne caseid i height są maskowania jego próbę aby uzyskać do nich lokalny dostęp z dostarczonej ramki danych. Tak więc sprawa, którą usunąłem, wydaje się być narysowana, ponieważ pojawia się w zmiennych globalnych, ale nie w ramce danych hd w czasie wywołania qplot().

Mam wrażenie, że to zachowanie jest całkowicie oczekiwane, i że tutaj odpowiedź brzmi, że podążam za nieoptymalną praktyką kodowania. Jak więc zacząć pisać kod, który pozwala uniknąć takich nieumyślnych kolizji?