Question

我的数据帧的范围是1到900。

nodelist <- data.frame(node_id=seq(1:900))

我想创建一个两列（顶部，底部）的新数据框，其中每个框都有矢量节点列表的组合。最高和最低编号不能相同。像这样：

top   bottom
1     2
1     3
1     4
2     1
2     3

我尝试了cross（）和expand.grid（）都无效。

Answer 1

我们可以使用expand.grid并删除两列具有相同值的行。

nodelist <- data.frame(node_id=1:9)
subset(expand.grid(nodelist$node_id, nodelist$node_id), Var1 != Var2)


#   Var1 Var2
#2     2    1
#3     3    1
#4     4    1
#5     5    1
#6     6    1
#7     7    1
#8     8    1
#9     9    1
#10    1    2
#...
#...

或与crossing

library(dplyr)
library(tidyr)

crossing(setNames(nodelist, 'top'), setNames(nodelist, 'bottom')) %>%
     filter(top != bottom)

Answer 2

这里是一种选择，可以一次从向量中删除一个元素：

nodelist <- seq(1:4)

data.frame(
    top=rep(nodelist, each=length(nodelist) - 1L),
    bottom=c(sapply(seq_along(nodelist), function(i) nodelist[-i]))
)

输出：

   top bottom
1    1      2
2    1      3
3    1      4
4    2      1
5    2      3
6    2      4
7    3      1
8    3      2
9    3      4
10   4      1
11   4      2
12   4      3

创建列表的所有组合的数据框

2 个答案: