r - 网络 : Making Graph Object from Event-Node Data Using igraph

Question

我想从事件记录数据中为 igraph 创建一个网络对象。

例如，我有一个数据是这样的。

 Event  Person
  1     Obama
  1     Putin
  1     Abe
  1     Cameron 
  2     Putin
  2     Xi
  2     Merkel
  3     Obama
  3     Abe
  3     Xi
  3     Merkel

我假设同一事件中的每个人都有联系。奥巴马、普京、安倍和卡梅伦有联系，因为他们都在事件 1 中。根据这个数据，奥巴马和安倍有两次联系，因为他们都在事件 1 和 3 中。

有了这些数据，我想计算度/介数/接近中心性。要计算这些中心性，我需要一个图形对象。如何创建图形对象或邻接矩阵来计算三个中心性度量？

对于这个基本问题我很抱歉，但我是使用 R 进行网络分析的新手。

提前谢谢你!

Answer 1

这是一个二分图，你想要的是它的投影。

txt <- "Event  Person
          1     Obama
          1     Putin
          1     Abe
          1     Cameron 
          2     Putin
          2     Xi
          2     Merkel
          3     Obama
          3     Abe
          3     Xi
          3     Merkel
"

data <- read.table(textConnection(txt), header = TRUE)
BG <- graph.data.frame(data, directed = FALSE)
V(BG)$type <- grepl("^[0-9]+$", V(BG)$name)

bipartite.projection(BG)[[1]]
#> IGRAPH UNW- 6 13 -- 
#> + attr: name (v/c), weight (e/n)
#> + edges (vertex names):
#>  [1] Obama--Putin   Obama--Abe     Obama--Cameron Obama--Xi      Obama--Merkel 
#>  [6] Putin--Abe     Putin--Cameron Putin--Xi      Putin--Merkel  Abe  --Cameron
#> [11] Abe  --Xi      Abe  --Merkel  Xi   --Merkel