조건부 행 삭제 : 동일하지 않은 유사 유사 행을 삭제하십시오.

Question

데이터 프레임이 있으며 행에 "유사 유사"한 두 값에 따라 삭제해야합니다. 나는 다르지만 동일하지 않은 관측치 만 삭제하면됩니다. 나는 이것을 agrep을 사용하여 시도하지만이 기능은 동일한 관찰을 삭제합니다. 상기의 dataframe

Id<-c("RoLu1976","Rolu1976","RoLu1976","AlBl1989","ThSa1996") 
Art<-c("Econometric Policy Evaluation: A Critique","Econometric Policy Evaluations A Critique","Econometric Policy Evaluation: A Critique", "Rules after discretion", "Expectations and the Nonneutrality of Lucas") 
Id.1<-c("FiKy1989","FiKy1989","BeBe1983","JoSt1989","JoSt1990") 
Art.1<-c("Notes on the Lucas Critique","Notes on the Lucas Critique","The Inconsistency of Optimal Plans","The Inconsistency","Notes on the Lucas") 
N<-data.frame(Id,Art,Id.1,Art.1) 

준 동일한 값은 s: 및 A에 대한 다른 2 명 개의 제 1 관찰 Art 열이다. 내가 this이었다 무슨 짓을

Id  Art           Id.1  Art.1 
RoLu1976 Econometric Policy Evaluation: A Critique FiKy1989 Notes on the Lucas Critique 
RoLu1976 Econometric Policy Evaluation: A Critique BeBe1983 The Inconsistency of Optimal Plans 
AlBl1989 Rules after discretion      JoSt1989 The Inconsistency 
ThSa1996 Expectations and the Nonneutrality of Lucas JoSt1990 Notes on the Lucas 

: 위의 경우

최종 데이터 프레임 (동일한 값이 삭제되지 않았 음을 유의)해야한다

yy = NULL 
for(i in 1:length(N$Art)){ 
    temp = agrep(N[i,"Art"],N$Art,value=T) 
    y = ifelse(any(N[i,"Art"]==temp),temp[1],N[i,"Art"]) 
    yy = c(yy,y) 
} 
N$Art = yy 
N.2 = N[!duplicated(N$Art), ] 

그러나 그것은 모두 삭제 값 : 동일하고 유사합니다.

어떻게하면됩니까?

Answer 1

원래 아트 열에있는 것과 동일한 항목의 색인을 저장하고 중복 제거 후 결과와 함께 사용할 수 있습니다 (예 :

originallyDuplicated <- duplicated(N$Art) 
# then run your snippet to generate `yy` 

그래서 당신은 지금중복되는 것을 제거하기를 원하지만 원래하지 . 다른 곳은 행의 모든 열 중복 (또는 거의 중복) 된 경우 그 오히려 Art 열 순전히 당신의 제외 기준을 내놓고보다, 그것은 행을 제외하는 것이 더 나을 것 같다 나에게 있지만

N[!(duplicated(yy) & !originallyDuplicated),] 

테이블에. (예 : Art.1, Id.1, ID 등도 비교하십시오.)