引文网络--最有效的展示方式是什么？

Question

我一直在做一个项目，说明作者的文章和他们各自的引用(来自其他作者)之间的关系。然后，我创建了一个矩阵来显示它们之间的边。

最终，我们希望在所有文章中衡量原创性，我们对衡量原创性的其他建议持开放态度。

下面是我已经创建的代码(在RStudio中，使用bibtex包和igraph包)：

data <- readFiles("network_science_450.bib") #read in data
convert<- convert2df(data, dbsource = "isi", format = "bibtex") #converted in a data frame

matrix <- cocMatrix(convert, Field = "CR", sep = ";")
sort(Matrix::colSums(matrix), decreasing = TRUE)[1:5]

NetMatrix <- biblioNetwork(convert, analysis = "coupling", network = "references", sep = ".  ")
NetMatrixTable <- as.matrix(NetMatrix, mode="directed", weighted=TRUE)

binary <- ifelse(NetMatrixTable>0,1,0) #converted into a binary matrix
as.matrix(binary)

我们已经创建了一个二进制矩阵来表示所有这些关系，但我想知道是否有更好的方法来表示我们的数据。我们已经探索了Hasse图作为一种可能性。

我们的主要问题是我们无法找到一种方法来创建邻接矩阵来执行进一步的分析。我们想要在矩阵上执行传递约简。

Answer 1

我真的不理解你的问题，但看起来你想建立一个社交矩阵。如果是这样，请尝试：

# citaton data
df <- data.frame(article = sample(LETTERS, 50, replace = TRUE),
                 cited_article = sample(LETTERS, 50, replace = TRUE))
## network creation
# 2-mode sociomatrix
df.2mode <- table(df)
df.2mode
# diag(df.2mode) <- 0 

(SO的问题需要reproducible example )