Идентифицировать записи в фрейме данных A, не содержащиеся в фрейме данных B [закрыто]

Трудно сказать, о чем здесь спрашивают. Этот вопрос двусмысленный, расплывчатый, неполный, чрезмерно широкий или риторический, и на него нельзя разумно ответить в его нынешней форме. Чтобы прояснить этот вопрос и снова открыть его, посетите справочный центр .

Закрыт 8 лет назад .

Я публикую здесь впервые, поэтому будьте любезны; -)

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

ВОПРОС

Как определить записи / строки в кадре данных 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)    
    }
)

задан Rappster 14 October 2011 в 10:40

0 ответов

Другие вопросы по тегам:

r join merge match dataframe

Идентифицировать записи в фрейме данных A, не содержащиеся в фрейме данных B [закрыто]

0 ответов

Похожие вопросы: