R在数据框中生成非重复对

Question

所以目的是通过取距离来比较每个ID和其他ID。

考虑以下数据框Df

ID AN     AW
a  white  green
b  black  yellow
c  purple gray
d  white  gray

为了比较，我需要一个如下所示的组合：

ID   AN     AW    ID2   AN2    AW2
a  white  green   b   black  yellow
a  white  green   c   purple gray
a  white  green   d   white  gray
b   black  yellow c   purple gray 
b   black  yellow d   white  gray
c   purple gray   d   white  gray

基本上，我正在尝试实现所有组合，以获取属于每个 ID 的特征之间的距离。

这里我真的不知道现在如何开始。有什么见解吗？我可以使用 R 中的哪些工具？

Answer 1

使用组合和匹配的一种可能解决方案。

ids <- combn(unique(df$ID), 2)
data.frame(df[match(ids[1,], df$ID), ], df[match(ids[2,], df$ID), ])

#     ID     AN     AW ID.1   AN.1   AW.1
# 1    a  white  green    b  black yellow
# 1.1  a  white  green    c purple   gray
# 1.2  a  white  green    d  white   gray
# 2    b  black yellow    c purple   gray
# 2.1  b  black yellow    d  white   gray
# 3    c purple   gray    d  white   gray