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

引文网 - 提出最有效的方式是什么？

1 个答案: