r 함수가 객체의 복사본이 아닌 전역 환경에서 객체를 사용하도록 요구하십시오.

Question

R의 내 지식 (아마도 무지한)은 메모리의 객체를 임시로 복사한다는 것입니다. 전역 환경의 객체가 너무 커서 복사 할 수있는 경우에도 함수를 사용하여 코드를 단순화하는 방법은 무엇입니까? 또는 함수를 조작하기 위해 큰 개체의 필요한 부분 만 하위 집합으로 만드는 것이 좋습니다.

예

# load two objects with 10 million rows and 500 columns 
big.object.1 <- readRDS(file = "previously.created.dataframe.1") 
big.object.2 <- readRDS(file = "previously.created.dataframe.2") 

# method 1 with memory use of ~xMB? 
big.object.1$recoded.column <- ifelse(big.object.1$old.column > 0, 
             big.object.1$recoded.column * 2, 
             big.object.1$recoded.column * 0.5) 

# method 2 with memory use of ~2xMB? 
new.column_function <- function(data, old.col, recoded.col) { 
    data[recoded.col] <- ifelse(data[old.col] > 0, 
           data[recoded.col] * 2, 
           data[recoded.col] * 0.5) 
} 

new.column_function(data = big.object.1, 
        recoded.col = 400, 
        new.col = 401) 

코드가 기능하지 않고 복잡하지만, 메모리 기능 문제입니다 가장 좋은 방법은 무엇입니까? 큰 개체를 복사하지 않으려면 어떻게해야합니까?

Answer 1

당신은

new.column_function <- function(old.col, recoded.col) { 

    ind <- big.object[old.col] > 0 

    # Do this 
    big.object[recoded.col] <<- ifelse(ind, big.object[recoded.col][ind] * 2, 
             big.object[recoded.col][ind] * 0.5) 

    # OR do this 
    big.object[recoded.col][ind] <<- big.object[recoded.col][ind] * 2 
    big.object[recoded.col][!ind] <<- big.object[recoded.col][!ind] * 0.5 

    # Don't think this behaves in the intended way... 
    #   ifelse(big.object[old.col] > 0, 
    #        big.object[recoded.col] * 2, 
    #        big.object[recoded.col] * 0.5) 
} 

이 data.table을 사용하는 것보다 더 나은 경우 나도 몰라 <<- (대신 <-)를 사용하여 함수 내에서 지구 환경의 개체에 액세스 할 수 있습니다.

Answer 2

당신이 함수에 OBJEKT의 이름이 경우가 아니라 전체 개체

new.column_function <- function(nameOfData, old.col, recoded.col) { 
    get(nameOfData)[recoded.col] <- ifelse(data[old.col] > 0, 
           data[recoded.col] * 2, 
           data[recoded.col] * 0.5) 
} 

를 제공하려고 만하는 기능 get 및 assign를 사용할 수는 nameOfData 예를 들어 값 big.object.1와 문자열