Não sei se você precisa dos índices. Se bastar um data.frame com as linhas em comum, uma solução alternativa é usar o inner_join
:
> q1 <- data.frame(COD = 1:5, CLAS=letters[1:5], stringsAsFactors = F)
> q2 <- data.frame(COD = c(25,1,31,3,2), CLAS=c(45,letters[1],100,letters[3],letters[10]), stringsAsFactors = F)
> library(dplyr)
> inner_join(q1, q2)
Joining by: c("COD", "CLAS")
COD CLAS
1 1 a
2 3 c
Por padrão o inner_join
usa todas as colunas que possuem o mesmo nome nos dois data.frames
, se você não quisesse usar todas, poderia usar o argumento by
. Leia mais em: help("join")
.
Claro que você pode adaptar este código para guardar os índices das duplicações de cada um dos conjuntos de dados, mas aí o código já não fica tão elegante.
> inner_join(
+ q1 %>% mutate(id_q1 = 1:nrow(.)),
+ q2 %>% mutate(id_q2 = 1:nrow(.))
+ )
Joining by: c("COD", "CLAS")
COD CLAS id_q1 id_q2
1 1 a 1 2
2 3 c 3 4