다른 변수 이름을 가진 루프를 whitin으로 저장하기

Question

데이터 프레임 목록 (variables)을 사용하고 출력으로 두 개의 데이터 프레임 (목록의 모든 데이터 프레임)을 제공하는 함수가 있습니다. 다른 변수 이름 (up.val 및 down.val 대신)과 다른 파일 이름 변수 벡터와 파일 이름은 모두 내가 만든 문자 벡터에 저장되어 있습니다.

filtering_data <- function(x){ 

    x <- as.data.frame(x) 
    pval <- which(x$P.Value < 0.05) 
    pval <- x[pval,] 


    up.pval <- which(pval$t > 0) 
    down.pval <- which(pval$t < 0) 

    up.pval <- pval[up.pval,] 
    down.pval <- pval[down.pval,] 

    save(up.pval, file = file.Rda) 
    save(down.pval, file = file.Rda) 
    } 

lapply(variables, filtering_data) 

Answer 1

난 당신이 새 이름에 값을 할당 할 assign를 사용하고 save에 list 인수로 변수 이름을 제공 할 생각합니다. 같이 : 덧붙여

filtering_data <- function(x,varName,file.rda){ 

    [calculations go here]] 

    # assign() only assigns one value so check the length of varName 
    stopifnot(length(varName)==1) 

    # make the new variable names 
    name.up <- paste0(varName,'.','up') 
    name.down <- paste0(varName,'.','down') 

    # assign the values to them in the current environment 
    assign(name.up,up.pval) 
    assign(name.down,down.pval) 

    # save the named variables 
    save(list=name.up, file=file.rda) 
    save(list=name.down,file=file.rda) 
} 

, file.rda 아마 이미