[R-br] Combinar linhas cuja interseção seja zero...

[Jasmine Moreira]

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 em 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 em 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.