환경에서 데이터 프레임을 조건부로 제거하십시오.

Question

어떻게 3 개 미만의 변수로 데이터 프레임을 삭제할 수 있습니까?

이

`1001.AFG.1.A`<-data.frame(x = 1, y = 1:10) 
apply(ls(), function(x) {if (dim(x)[2]<3) rm(x)}) 

오류 메시지는 다음과 같습니다 :

는

Error in match.fun(FUN) : argument "FUN" is missing, with no default 

Answer 1

1) 첫 번째 줄은 각 객체에 대한 구성 요소가있는 to.rm이라는 이름의 논리 벡터를 생성합니다.이 객체는 해당 객체를 제거해야하는 경우 TRUE이고 그렇지 않으면 FALSE입니다. 따라서 names(to.rm)[to.rm]은 제거 할 객체이므로 rm에 입력하십시오. 이를 두 단계로 나누어 실제로 rm을 수행하기 전에 to.rm을 검토 할 수 있습니다.

to.rm <- unlist(eapply(.GlobalEnv, function(x) is.data.frame(x) && ncol(x) < 3)) 
rm(list = names(to.rm)[to.rm], envir = .GlobalEnv) 

이 지구 환경에 직접 입력하면 (즉 fucntion에 배치하지 않음)의 마지막 줄에서 다음 envir = .GlobalEnv이 기본이며 생략 될 수있다.

2) 또 다른 방법은 표시된대로 env의 개체 이름을 반복하는 것입니다. verbose 인수를 사용하여 수행중인 작업을 표시하고 dryrun 인수를 사용하여 실제로 제거하지 않고 제거 할 내용을 표시합니다.

rm2 <- function(env = .GlobalEnv, verbose = FALSE, dryrun = FALSE, all.names = FALSE) { 
    for(nm in ls(env, all.names = all.names)) { 
    obj <- get(nm, env) 
    if (is.data.frame(obj) && ncol(obj) < 3) { 
     if (verbose || dryrun) cat("removing", nm, "\n") 
     if (!dryrun) rm(list = nm, envir = env) 
    } 
    } 
} 

rm2(dryrun = TRUE) 
rm2(verbose = TRUE) 

업데이트에 rm에 추가 envir 인수 (1). 그것은 이미 (2)에있었습니다.

업데이트 2 (2)에 대한 부수적 인 내용.

Answer 2

당신은 시도 할 수 있습니다 :

sapply(ls(), function(x) { 
       if (is.data.frame(get(x)) && dim(get(x))[2]<3) rm(list=x,envir=.GlobalEnv) 
      }) 

나는 당신이 장 복사를 억제하려면, 당신이 할 수 있습니다

을 나는이 시도

invisible(sapply(ls(), function(x) { 
       if (is.data.frame(get(x)) && dim(get(x))[2]<3) rm(list=x,envir=.GlobalEnv) 
      }))