如何在对称邻接矩阵时保留标题？

Question

我使用symmetrize函数（ sna 包）来对称具有行名和列名的邻接矩阵。例如：
sample matrix

我使用以下命令在R：

中导入矩阵

y <- read.table("y.csv", header=T,row.names=1,na.strings="99", sep=",")

然后使用此命令对数据进行对称化：

y_s <-symmetrize(y,rule="strong", return.as.edgelist=FALSE)

运行此命令后，对称矩阵y_s不再具有行名和列名。有什么办法可以修改这段代码，以便行名和列名保持不变？或者，或许，对称化邻接矩阵有不同的方法吗？ 谢谢。

Answer 1

不确定名称消失的原因，但您可以根据原始邻接矩阵重新分配名称。

rownames(x) <- rownames(y)
colnames(x) <- colnames(y)