2

我正在尝试生成一个边缘列表以输入 R 的igraph绘图函数，这要求我生成一个data.frame' 目标，该目标由代表“从”节点和“到”节点的两列组成，其他列用作边缘属性。

由于这里只对无向图感兴趣，因此我需要生成一个包含任意两个节点的唯一组合（无顺序）的两列数据框，并生成它们之间所有边的总和（同样，无向）。

我引用了一些较早的线程，但似乎无法解决计数问题，因为大多数代码将 A --> B 和 B <-- A 视为不同的对，例如：

library(igraph)
# generate 7 edge pairs
ee <- c("A", "B", "B", "A", "C", "A", "C", "D", "D", "E", "A", "E", "A", "C")
# convert to igraph object
g <- graph(ee)

# count edges

edge.count <- function(g){
     D <- data.frame(get.edgelist(g))  # convert to data frame
     ones <- rep(1, nrow(D))   # a column of 1s
     result <- aggregate(ones, by = as.list(D), FUN = sum)
     names(result) <- c("from", "to", "count")
     result
} 

count <- edge.count(g)

count
  from to count
1    B  A     1
2    C  A     1
3    A  B     1
4    C  D     1
5    A  E     1
6    D  E     1
7    A  C     1

但是我想要的输出应该有一对 {B, A} 和count2 对 {C, A} 和count2，因为在无向图中它们与对 {A, B} 和 {A, C} 被视为相同.

有人可以推荐任何方法来解决这个问题吗？

4

1 回答 1

3

您可以替换graph()为make_undirected_graph()：

g <- make_undirected_graph(ee)

获得：

  from to count
1    A  B     2
2    A  C     2
3    C  D     1
4    A  E     1
5    D  E     1

甚至通过：

g <- graph(ee, directed = FALSE)
于 2019-06-29T09:35:52.393 回答