Skip to content

Find "undirected" duplicates in a tibble

3 messages · Greg Minshall, Eric Berger, Kimmo Elo

Original
Greg Minshall
# 
Kimmo,

i'll be curious to see other, maybe more elegant, answers.  in the
meantime, this seems to work.

----
  x = data.frame(Source=rep(1:3,4), Target=c(rep(1,3),rep(2,3),rep(3,3),rep(4,3)))
  y <- apply(x, 1, function(y) return (c(n=min(y), x=max(y))))
  res <- data.frame()
  for (n in unique(y["n",])) {
    unique(y["x",y["n",]==n])
    res <- rbind(res, data.frame(A=c(n), B=unique(y["x",y["n",]==n])))
  }
  res
----

thanks for the question!

cheers, Greg
Eric Berger
# 
x %>% transmute( a=pmin(Source,Target), b=pmax(Source,Target)) %>%
  unique() %>% rename(Source=a, Target=b)
On Fri, Aug 20, 2021 at 2:12 PM Greg Minshall <minshall at umich.edu> wrote:

            

      
      
      
    

        

      
      
    

        

  
  


  


      

    

    
2 days later

    

      
      

        


  

        

      Kimmo Elo
    

    

      
      #
    

  


  

      
Hi!

Thank you very much for the fascinating solutions. Nice to learn
different approaches. All solutions seem to work with text data as
well.

@Gabor (who suggested the 'igraph' package): yes, I am familiar with
'igraph' and the solution suggested by you works fine, too. Since I
need this kind of "simplification" of my datasets in many analysis
outside network analysis, I just wanted to figure out alternatives :-)

Best,

Kimmo



pe, 2021-08-20 kello 16:38 +0300, Eric Berger kirjoitti: