获取edge_list上两个顶点的度数索引并获取单独数据框列上的索引的数

Question

我使用了degree()包中的igraph函数来计算一条边上两个顶点的度数索引，以得出一个由7个独特边组成的小示例边列表，我想知道如何将那些度数索引渲染为两个单独的同一唯一边上两个顶点的列，下面是我的示例代码：

library(igraph)
g <- graph.formula(1-2-3-4, 2-5, 3-6, 2-4-7)
degs <- degree(g, mode = "out")

所需的输出应该看起来像这样

from	to	from_out	to_out
1	    2	     1	      4
2	    3	     4	      3 
3	    4      3	      3 
2	    5	     4	      1
3	    6	     3	      1
2	    4	     4	      3 
4	    7	     3	      1

如果有人可以对此有所了解，将不胜感激。

Answer 1

#turn graph to data.frame
DF <- as_data_frame(g)

#degs is a named vector
DF$from_out <- degs[as.character(DF$from)]
DF$to_out <- degs[as.character(DF$to)]
#  from to from_out to_out
#1    1  2        1      4
#2    2  3        4      3
#3    2  4        4      3
#4    2  5        4      1
#5    3  4        3      3
#6    3  6        3      1
#7    4  7        3      1