如何在二分投影中将模式转换为属性

问题描述

对于转换为单模投影后保留节点信息，我有一个简短的问题。

library(igraph)
data <- data.frame( company=c(letters[1:5],letters[5:8],"a"),Deal=c(14,14,15,16,17,18,18))
g <- graph_from_data_frame(data)
V(g)$type <-  V(g)$name %in% data[,1]
proj <- bipartite.projection(g)
proj$proj2

我想将公司与公司的关系用作新的边列表，但将交易编号保留为边属性，以便理想地拥有一个新的数据集，如下所示：

来源目标交易
a b 14
c d 15
f g 17
h a 18

其中“源”，“目标”和“交易”分别在各自的列中。 （抱歉，这看起来并不漂亮！）

我可以创建一个带有源和目标的数据框，但是在第三栏中很难弄清楚如何添加回购。任何建议或指导将不胜感激！ 这是我正在使用的代码：

el00<-as_edgelist(proj$proj2)
colnames(el00) <- c("Source","Target")     



   

解决方法

我自己pw.write(ci)自己进行边缘列表的投射，然后使用saveCI()来保存交易编号：

full_join()