Igraph：导出带有顶点和边属性的顶点列表

Question

Igraph：导出带有顶点和边属性的顶点列表

3

我有两个城市之间的美国贸易数据。我有关于城市（节点）和贸易（边缘）的属性数据。

考虑以下图表：

library(igraph)
gg <- graph.atlas(711)
V(gg)$name <- 1:7
V(gg)$city <- c("BOISE","NEW YORK","NEW YORK","BOISE","BOISE","LA","LA")
V(gg)$color <- ifelse(V(gg)$city=="BOISE", "orange","yellow")
gg <- delete.edges(gg, E(gg,P=c(1,2,2,3,2,7,7,6,7,3,3,4,3,5,4,5,5,6,6,1))) 
gg <- add.edges(gg,c(1,4,4,5,5,1),attr=list(trade=1))
gg <- add.edges(gg,c(7,5,5,4,4,7),attr=list(trade=2))
gg <- add.edges(gg,c(7,3,3,5,5,7),attr=list(trade=3))
gg <- add.edges(gg,c(2,7,7,6,6,2),attr=list(trade=4))
gg <- add.edges(gg,c(6,4),attr=list(trade=5))
plot(gg, edge.label=E(gg)$trade)

生成以下内容：

我想要将此导出为带有边权值的edgelist格式，保存到文本文件中。

例如：

[CITY 1], [CITY 2], [TRADE]

有什么方法可以帮我完成这个任务吗？看起来很简单，但我真的卡住了。

- wake_wake

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- MrFlick · Accepted Answer

您可以提取边缘列表，然后使用它来获取顶点属性，并与边缘属性组合。例如

el <- as_edgelist(gg)
data.frame(city1=V(gg)[el[,1]]$city, 
    city2=V(gg)[el[,2]]$city, 
    trade=E(gg)$trade)

#       city1 city2 trade
# 1     BOISE BOISE     1
# 2     BOISE BOISE     1
# 3     BOISE BOISE     1
# 4     BOISE    LA     2
# 5     BOISE BOISE     2
# 6     BOISE    LA     2
# 7  NEW YORK    LA     3
# 8  NEW YORK BOISE     3
# 9     BOISE    LA     3
# 10 NEW YORK    LA     4
# 11       LA    LA     4
# 12 NEW YORK    LA     4
# 13    BOISE    LA     5

数据看起来有些奇怪，因为您有多个具有相同城市名称的顶点。不确定这是否是您的意图。