Это мой первый пост здесь, так что будьте добры ;-)

РЕДАКТИРОВАТЬ Мой вопрос был закрыт, прежде чем я смог внести предложенные мне изменения. Так что я пытаюсь сделать работу лучше, спасибо всем, кто до сих пор ответил!

ВОПРОС

Как я могу идентифицировать записи / строки в кадре данныхx.1 которыене содержится в кадре данныхx.2 основанный навсе доступные атрибуты (то есть все столбцы) вНаиболее эффективным путь?

ПРИМЕР ДАННЫХ

> x.1 <- data.frame(a=c(1,2,3,4,5), b=c(1,2,3,4,5))
> x.1
  a b
1 1 1
2 2 2
3 3 3
4 4 4
5 5 5

> x.2 <- data.frame(a=c(1,1,2,3,4), b=c(1,1,99,3,4))
> x.2
  a  b
1 1  1
2 1  1
3 2 99
4 3  3
5 4  4

ЖЕЛАЕМЫЙ РЕЗУЛЬТАТ

  a b
2 2 2
5 5 5

Лучшее решение так далеко

Профессор Брайан Рипли и Габор Гротендик

> fun.12 <- function(x.1,x.2,...){
+     x.1p <- do.call("paste", x.1)
+     x.2p <- do.call("paste", x.2)
+     x.1[! x.1p %in% x.2p, ]
+ }
> fun.12(x.1,x.2)
  a b
2 2 2
5 5 5
> sol.12 <- microbenchmark(fun.12(x.1,x.2))
> sol.12 <- median(sol.12$time)/1000000000
> sol.12
> [1] 0.000207784

Коллекция всех проверенных решений доступна на моемблог

ЗАКЛЮЧИТЕЛЬНОЕ РЕДАКТИРОВАНИЕ 2011-10-14

Вот лучшее решение, заключенное в функцию 'mergeX ()':

setGeneric(
    name="mergeX",
    signature=c("src.1", "src.2"),
    def=function(
        src.1,
        src.2,
        ...
    ){
    standardGeneric("mergeX")    
    }
)

setMethod(
    f="mergeX", 
    signature=signature(src.1="data.frame", src.2="data.frame"), 
    definition=function(
        src.1,
        src.2,
        do.inverse=FALSE,
        ...
    ){
    if(!do.inverse){
        out <- merge(x=src.1, y=src.2, ...)
    } else {
        if("by.y" %in% names(list(...))){
            src.2.0 <- src.2
            src.2 <- src.1
            src.1 <- src.2.0
        }
        src.1p <- do.call("paste", src.1)
        src.2p <- do.call("paste", src.2)
        out <- src.1[! src.1p %in% src.2p, ]
    }
    return(out)    
    }
)