R help - Aug 2021 - Find "undirected" duplicates in a tibble

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:
> 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
>
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
	[[alternative HTML version deleted]]

Eric,
> x %>% transmute( a=pmin(Source,Target), b=pmax(Source,Target)) %>%
>   unique() %>% rename(Source=a, Target=b)
ah, very nice.  i have trouble remembering, e.g., unique().

fwiw, (hopefully) here's a baser version.
----
  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(A=min(y), B=max(y))))
  unique(t(y))
----

cheers, Greg

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:
> 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:
> 
> > 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
> > 
> > ______________________________________________
> > R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> > https://stat.ethz.ch/mailman/listinfo/r-help
> > PLEASE do read the posting guide
> > http://www.R-project.org/posting-guide.html
> > and provide commented, minimal, self-contained, reproducible code.
> >