如何用权重对称矩阵填充R语言数据框（去除自链接）

嘿，这事儿不难！我给你两种实用方案，一种保留所有非自链接的双向记录，另一种因为矩阵是对称的，只保留不重复的单向记录，你按需选就行。

第一步：先把你的矩阵在R里构造出来 #

首先我们把你给的矩阵数据转换成R能识别的矩阵对象，顺便把行名列名设置好，方便后续转换：

# 构造带行名列名的对称矩阵
weight_matrix <- matrix(
  c(0, 0.00276, 0.148, 0.109,
    0.00276, 0, 0.145, 0.112,
    0.148, 0.145, 0, 0.257,
    0.109, 0.112, 0.257, 0),
  nrow = 4,
  byrow = TRUE,
  dimnames = list(c("AT", "BE", "CH", "CZ"), c("AT", "BE", "CH", "CZ"))
)

第二步：转成包含所有非自链接的数据框 #

我们用reshape2包的melt()函数把宽矩阵转成长格式，然后过滤掉自链接（也就是from和to相同的行）：

# 如果没装reshape2先安装
# install.packages("reshape2")
library(reshape2)

# 转换成长格式数据框，指定列名
link_df <- melt(weight_matrix, varnames = c("from", "to"), value.name = "weight")

# 排除自链接记录
link_df <- link_df[link_df$from != link_df$to, ]

运行完你就得到了所有元素间的双向链接，比如AT-BE和BE-AT都会包含在内，对应的权重也完全匹配原矩阵。

可选：只保留无重复的单向链接 #

因为你的矩阵是对称的，双向链接的权重完全一致，如果不想保留重复记录，可以再加一步筛选，只保留from字符顺序小于to的行：

# 筛选出不重复的单向链接
unique_link_df <- link_df[as.character(link_df$from) < as.character(link_df$to), ]

这样就只会保留AT-BE、AT-CH这类组合，不会出现反向的重复行，数据更精简。

如果你不想用reshape2，也可以用base R的方法实现，但上面的方案已经足够简洁高效啦！

内容的提问来源于stack exchange，提问作者Anastasia