[R] Find "undirected" duplicates in a tibble

Greg Minshall m|n@h@|| @end|ng |rom um|ch@edu
Fri Aug 20 13:12:23 CEST 2021


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",])) {
    res <- rbind(res, data.frame(A=c(n), B=unique(y["x",y["n",]==n])))

thanks for the question!

cheers, Greg

More information about the R-help mailing list