R에서 큰 정렬 된 것에서 작은 데이터 프레임을 빼는 쉬운 방법이 있습니까?

Question

데이터 세트를 정리하고 정렬했지만 불행히도 누군가가 데이터를 두 번 넣었습니다. R에서 데이터 프레임처럼 중복 된 서브 세트를 읽은 다음 큰 데이터 프레임에서 빼서 중복을 제거하는 쉬운 방법이 있습니까?

명확하게하기 위해 일부 데이터는 여러 번 발생하므로 중복되는 행이있는 것만으로는 데이터가 두 번 병합 된 더 작은 데이터 집합에 있음을 의미하지 않습니다.

Answer 1

이것은 느리고 끔찍한 접근이지만 일을 끝내게됩니다.

#Setting up data which has the A row 3 times, the B row twice, and the C row 3 times 
whichLet <- c("A","A","A","B","B","C","C","C") 
A <-data.frame(Dog=1,Bob=2,Cat=3) 
B <-data.frame(Dog=2,Bob=1,Cat=3) 
C <- data.frame(Dog=3,Bob=2,Cat=1) 
someDuplicates <- do.call(rbind,sapply(whichLet,get,simplify=FALSE)) 
# Specifying to remove one of the A rows and one of the C rows, this is the same as 
toRemove <- do.call(rbind,sapply(c("A","C"),get,simplify=FALSE)) 
# we now have the data frames you mentioned 

while (nrow(toRemove) > 0) { #keep doing this until we've removed all the rows you specified 
    uniqueDF <- unique(someDuplicates) 
    duplicatedDF <- someDuplicates[duplicated(someDuplicates),] 
    # removing the first row of toRemove from uniqueDF 
    uniqueDF <- uniqueDF[!apply(apply(uniqueDF,1,function(x) {x==toRemove[1,]}),2,all),] 
    # merging the unique back with the duplicates 
    someDuplicates <- rbind(uniqueDF,duplicatedDF) 
    # removing the item just removed from toRemove 
    toRemove <- toRemove[-1,] 
} 

참고 :이 기능은 자동으로 실패 할 수 있습니다. 고유 한 XML에 존재하지 않는 행을 제거하면 고유 한 XML의 설정이 모두 유지되므로 계속 진행됩니다.