Oi André,
Não sei se entendi direito, mas fiz um script para extrair as linhas sem
interseção, veja se ajuda:
dat <- data.frame(1:6,matrix(c(1:5,3:7,5:9,6:10,11:15,2:6),,5,byrow=T))
colnames(dat) <- c("id","A","B","C","D","E")
numrows <- length(dat)
for(i in 1:(numrows-1)){
for(j in i:numrows){
match <- 0
for(k in dat[i,]){
if(k %in% dat[j,]){ match <- 1}
}
if(!match){
print(dat[i,])
print(dat[j,])
}
}
}
Abraços,
Jasmine
> Em 27 de set de 2017, à(s) 01:43, andrebvs--- via R-br
> <r-br@listas.c3sl.ufpr.br> escreveu:
>
> Caros colegas, uma pequena dúvida. Como posso combinar apenas as linhas de um
> data.frame(ou matriz) cuja interseção seja zero?
>
> Exemplo:
>
> dat <- data.frame(1:6,matrix(c(1:5,3:7,5:9,6:10,11:15,2:6),,5,byrow=T))
> colnames(dat) <- c("id","A","B","C","D","E")
>
> # Saída:
>
> id A B C D E
> 1 1 2 3 4 5
> 2 3 4 5 6 7
> 3 5 6 7 8 9
> 4 6 7 8 9 10
> 5 11 12 13 14 15
> 6 2 3 4 5 6
>
> # Resultado desejado:
>
> id A B C D E A B C D E id
> 1 1 2 3 4 5 6 7 8 9 10 4
> 1 1 2 3 4 5 11 12 13 14 15 5
>
> desde já grato!
>
> Att.
> André
> _______________________________________________
> R-br mailing list
> R-br@listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código
> mínimo reproduzível.
_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e fornea cdigo mnimo
reproduzvel.
