如何在R语言中将含两两变量对应值的数据集转换为对称矩阵？

这其实很简单，我们可以分几步来实现这个对称矩阵的构建，我给你两种方法，一种是基础R的写法，另一种是用tidyverse工具链的方式，你可以根据自己的习惯选择：

方法一：基础R实现 #

这种方法不需要额外安装包，用R原生函数就能完成：

1. 定义原始数据
   首先把你的列名和对应值整理成命名向量，方便后续处理：

   # 原始数据：键是列名（如"A..B"），值是对应数值
   raw_data <- c("A..B" = 2, "A..C" = 5, "B..C" = 9)
   

2. 提取所有变量名称
   通过拆分列名的方式，提取出矩阵的行/列名（A、B、C）：

   # 拆分每个键，提取变量名并去重
   vars <- unique(unlist(strsplit(names(raw_data), "\\.\\.")))
   

3. 初始化对称矩阵
   创建一个对角线为1的空矩阵，并设置行名和列名：

   # 创建对角线为1的矩阵，维度等于变量数量
   sym_matrix <- diag(1, nrow = length(vars), ncol = length(vars))
   # 给矩阵设置行名和列名
   rownames(sym_matrix) <- colnames(sym_matrix) <- vars
   

4. 填充矩阵的对称位置
   遍历原始数据的每个键值对，把数值填充到矩阵对应的对称位置：

   # 循环处理每个键值对
   for (key in names(raw_data)) {
     # 拆分键得到行和列的名称
     pair <- strsplit(key, "\\.\\.")[[1]]
     row_name <- pair[1]
     col_name <- pair[2]
     # 填充数值到对称的两个位置
     sym_matrix[row_name, col_name] <- raw_data[key]
     sym_matrix[col_name, row_name] <- raw_data[key]
   }
   

5. 查看结果
   运行sym_matrix就能得到你想要的对称矩阵：

   sym_matrix
   # 输出结果：
   #   A B C
   # A 1 2 5
   # B 2 1 9
   # C 5 9 1
   

方法二：用tidyverse工具链实现 #

如果你习惯用tidyverse的语法，可以用更简洁的方式完成：

1. 安装并加载tidyverse包
   如果还没安装，先执行安装命令：

   install.packages("tidyverse")
   library(tidyverse)
   

2. 整理原始数据为长格式
   把命名向量转成数据框，并拆分列名为行和列的对应关系：

   raw_df <- tibble(pair = names(raw_data), value = raw_data) %>%
     separate(pair, into = c("row", "col"), sep = "\\.\\.")
   

3. 初始化并填充矩阵
   同样先创建对角线为1的矩阵，然后用pwalk函数填充数值：

   # 初始化矩阵
   sym_matrix <- diag(1, nrow = 3, ncol = 3)
   rownames(sym_matrix) <- colnames(sym_matrix) <- c("A", "B", "C")
   
   # 填充对称位置
   raw_df %>%
     pwalk(function(row, col, value) {
       sym_matrix[row, col] <<- value
       sym_matrix[col, row] <<- value
     })
   

4. 查看结果
   同样运行sym_matrix就能得到目标矩阵。

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