在R中使用有向边生成图形

Question

我有一个数据集，看起来像这样：

PostID UserID ReplyTo
1      11     NA
2      12     1
3      11     2
4      13     NA
5      12     4

我想有一个有边的有向图：12-> 11，11-> 12，12-> 13

想法是，广告End我能够拥有一个UserID列表，并向其中添加不同的Centrality。

我尝试的方式只能在PostID而非UserID之间生成图形。

library(igraph)

D <- data.frame(Data$PostID, Data$ReplyTo)
FinalEdges<-D[complete.cases(D),]
FinalNetwork <- graph.data.frame(FinalEdges, directed = TRUE)


plot(FinalNetwork, vertex.label = V(FinalNetwork)$PostID) 

对于不同的中心，我使用：

DegreeCentrality<-degree(FinalNetwork)
ClosenessCentrality<-closeness(FinalNetwork)
BetweennessCentrality<-betweenness(FinalNetwork)
which i the would like to add to a list of users.

最后，我希望有一份用户列表及其中心

UserID, DegreeCentrality, Closeness Centrality, BetweennessCentrality
11
12
13

Answer 1

您需要重塑输入数据的形状以连接线对。 如果这是您的样本输入数据

dd<-structure(list(PostID = 1:5, UserID = c(11L, 12L, 11L, 13L, 12L
), ReplyTo = c(NA, 1L, 2L, NA, 4L)), .Names = c("PostID", "UserID", 
"ReplyTo"), class = "data.frame", row.names = c(NA, -5L))

然后，您可以将回复与

 mm<-merge(dd, dd, by.x="ReplyTo", by.y="PostID")

这产生

  ReplyTo PostID UserID.x UserID.y ReplyTo
1       1      2       12       11      NA
2       2      3       11       12       1
3       4      5       12       13      NA

以及对ReplyIo列重复的警告。 但这不是真正的问题。 我们只需要两个UserID列。 我们可以将它们变成图表

library(igraph)
gg <- graph.data.frame(mm[,c("UserID.x","UserID.y")])

使用该对象，您应该能够使用igraph库计算所需的统计信息。