如何解决如何在二分投影中将模式转换为属性
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()
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。