속성 목록()을 R의 하위 목록에 지정

Question

속성 목록이 포함 된 '상황'이라는 데이터 프레임이 있습니다.

> str(situations) 
'data.frame': 24 obs. of 8 variables: 
$ ID.SITUATION   : Factor w/ 24 levels "cnf_01_be","cnf_02_ch",..: 1 2 3 4 5 6 7 8 9 10 ... 
$ ELICITATION.D   : Factor w/ 2 levels "NATUREL","SEMI.DIRIGE": 1 1 1 1 1 1 1 1 2 2 ... 
$ INTERLOCUTEUR.C  : Factor w/ 3 levels "DIALOGUE","MONOLOGUE",..: 2 2 2 2 3 3 3 3 1 1 ... 
$ PREPARATION.D   : Factor w/ 3 levels "PREPARE","SEMI.PREPARE",..: 2 2 2 2 3 3 3 3 3 3 ... 
$ INTERACTIVITE.D  : Factor w/ 3 levels "INTERACTIF","NON. INTERACTIF",..: 2 2 2 2 1 1 1 1 3 3 ... 
$ MEDIATISATION.D  : Factor w/ 3 levels "MEDIATIQUE","NON.MEDIATIQUE",..: 2 2 2 2 2 2 2 2 2 2 ... 
$ PROFESSIONNALISATION.C: Factor w/ 1 level "PRO": 1 1 1 1 1 1 1 1 1 1 ... 
$ ID.TASK    : Factor w/ 5 levels "conference scientifique",..: 1 1 1 1 2 2 2 2 3 3 ... 

나는 내가 given corpus에서 하위 목록 것보다이 dataframes (24)의 많은 관찰이있다.

ID 상황 이름 (cnf_01_be)은 하위 목록 (cnf_01_be)의 이름과 일치합니다.

attributes(corpus$cnf_01_be) = situations[1,] 
attributes(corpus$cnf_02_ch) = situations[2,] 

그리고 특정 목적을 위해 그들에게를 검색 :

나는 할당 된 개인이 속성을 어떻게 알고

attr(corpus$cnf_01_be, "ELICITATION.D") 
attr(corpus$cnf_02_ch, "ELICITATION.D") 
attr(corpus$cnf_02_ch, "PREPARATION.D") 

하지만 어떻게 자동으로 할당 lapply 예를 들어 사용할 수 있습니다 내 코퍼스의 모든 하위 목록에 특성이 있습니까? 사전에 ...

lapply(corpus,setattr) 
lapply(corpus, attributes(corpus) <- situations[c(1:length(situations[,1])),]) 

감사를

setattr <- function(x,y) { 
    attributes(x) <- situations[y,] 
    return(attributes) 
} 

을 ... 나 : 내 모든 시험 같은 느낌

는 잘못된 방향으로 가고있다!

Answer 1

lapply (및 유사한 접근법)를 사용할 때의 주된 문제점은 일반적으로 원래의 관심 객체를 변경할 수는 없지만 오히려 새로운 구조를 반환한다는 것입니다. 따라서 이미 "코퍼스"목록이 있고 그 구성원의 특성을 변경하려는 경우 일반적으로 함수 내에서이를 수행 할 수 없습니다.

이 제한을 극복하는 한 가지 방법은 일반적인 할당 대신 eval.parent() 호출을 사용하는 것입니다. 이 함수는 할당 한 객체의 로컬 인스턴스 (사본)가 아닌 상위 환경 (함수를 호출 한 환경)에서 할당 표현식을 평가합니다. 이것을 사용하면 값을 반환 할 필요가 없습니다.

또 다른 옵션은 함수 내에 코퍼스 목록의 로컬 복사본을 만들고 모든 특성을 추가 한 다음 함수에서 전체 구조를 반환하고 이전 목록을 대체하는 데 사용하는 것입니다. 목록이 크거나 복잡하면 아마도 현명한 선택이 아닙니다.

여기 코드가 있습니다. 참고 - 이것은 추한 코드입니다. 나는 더 간단하게 만들 수 있는지 여전히 찾고 있지만 위의 문제 때문에 훨씬 더 간단한 옵션이 있는지 확신하지 못합니다. 변수로

f = function(lname,data) { 
    snames = eval.parent(parse(text=paste("names(",lname,")"))) 
    for (xn in snames) { 
     rd = data[match(xn,as.character(data$id)),] 
     if (nrow(rd)>0) { 
      tmp___ <<-rd[1,] 
      cmm = paste("attributes(",lname,"[[",xn,"]]) = tmp___") 
      eval.parent(parse(text=cmm)) 
     } 
    } 

을}

참고를 위해 그것을 사용하는 당신이 문자열로 (목록의 이름을 제공해야한다는 것을, 그리고 어쨌든, 나는 다음 당신을 위해 트릭을 할 것입니다 희망) 및 데이터 프레임. 귀하의 경우 전화 번호는 다음과 같습니다.

f("corpus",situations) 

이 정보가 도움이되기를 바랍니다.