логики разделяемых строк из двух фреймов данных

Question

Как получить логические схемы разделяемых строк из двух фреймов данных?

> a <- data.frame(x = 1:5, y = 7:11) 
> b <- data.frame(x = c(4, 2, 6, 3, 3, 1), y = c(10, 16, 7, 9, 9, 7)) 
> a 
    x y 
1 1 7 
2 2 8 
3 3 9 
4 4 10 
5 5 11 
> b 
    x y 
1 4 10 
2 2 16 
3 6 7 
4 3 9 
5 3 9 
6 1 7 
> a.indices <- c(TRUE, FALSE, TRUE, TRUE, FALSE) 
> b.indices <- c(TRUE, FALSE, FALSE, TRUE, TRUE, TRUE) 

Я хотел бы вернуть a.indices или b.indices.

Answer 1

Вы можете сделать combinaton, что merge и %in% делает

a.indices <- match(
    do.call(paste, c(a, sep="\r")), 
    do.call(paste, c(b, sep="\r")), nomatch=0 
)>0 

Вы объединить строки в одно значение, а затем использовать спичку для сравнения одного набора к другому. Вы также можете сделать

b.indices <- Reduce(function(vprev,vnow) vprev & !is.na(vnow), 
    Map(match, b,a), init=T) 

(для обоих этих методов вы можете поменять a и b получить противоположный результат). Вы можете протестировать сравнение производительности в своем конкретном сценарии.