Question

我正在尝试使用igraph为共同作者网络分析项目创建边缘列表。我的数据存储的方式是特定纸张的每个作者都按行收听，这意味着每篇论文都是一个观察，而这些列包含该论文的作者。

是否可以使用combn函数在每篇论文中创建每个作者组合的边缘列表？

Answer 1

我猜你必须一个接一个地做，但你可以用do.call把它们放在一起（＆＃39; c＆＃39;，...）

library(utils)


## original data as a list
data.in  = list(c(1,2,3),c(4,5),c(3),c(1,4,6))

## function that makes all pairs
f.pair.up <- function(x) {
n = length(x)
if (n<2) {
  res <- NULL
} else {
  q <- combn(n,2)
  x2 <- x[q]
  #dim(x2) <- dim(q)
  res <- x2
}
return(res)
}

## for each paper create all author pairs (as a flat vector)
data.pairs.bypaper = lapply(data.in,f.pair.up)

## remove papers that contribute no edges
data.pairs.noedge = sapply(data.pairs.bypaper,is.null)
data.pairs2.bypaper <- data.pairs.bypaper[!data.pairs.noedge]

## combine all 'subgraphs'
data.pairs.all <- do.call('c',data.pairs2.bypaper)

## how many authors are there?
n.authors <- length(unique(data.pairs.all))

## make a graph
my.graph = graph(data.pairs.all,directed=FALSE,n=n.authors)

## plot it
tkplot(my.graph)

在R中创建共同作者网络的边缘列表

1 个答案: