在R语言中将值数组转换为成对评估矩阵的实现方法

我来帮你实现这个需求——把数据框的第一行转换成一个用来标记每对值是否相等的矩阵。下面是具体的步骤和代码：

步骤1：处理输入数据 #

首先你的原始数据是这样的：

df = data.frame(m1=c("Apple", "1", "2"), m2=c("Apple", "3", "4"), m3=c("Plum", "5", "6"))
array = df[1,]

这里的array其实是一个数据框的行，我们先把它转换成字符向量，方便后续操作：

vec <- as.character(array)

步骤2：生成对比矩阵 #

使用R的outer()函数可以轻松实现对所有元素对的比较，它会遍历两个向量的每一对元素，应用指定的函数（这里用==来判断是否相等）：

# 生成逻辑矩阵
compare_matrix <- outer(vec, vec, FUN = "==")

# 设置行列名为原数据框的列名，让矩阵更直观
rownames(compare_matrix) <- colnames(df)
colnames(compare_matrix) <- colnames(df)

步骤3：匹配目标格式 #

运行上面的代码后，你会得到一个对称的逻辑矩阵。如果你希望和你给出的示例一样只显示下三角（上三角留空），可以用下面的代码把上三角的元素设为空：

# 先把逻辑值转成缩写的字符形式
compare_matrix_abbr <- matrix(as.character(compare_matrix), nrow = nrow(compare_matrix))
rownames(compare_matrix_abbr) <- colnames(df)
colnames(compare_matrix_abbr) <- colnames(df)

# 把上三角（不含对角线）的位置设为空字符串
upper.tri(compare_matrix_abbr) <- ""

这样得到的就是完全和你目标一致的矩阵：

m1 m2 m3
m1  T      
m2  T  T   
m3  F  F  T

补充说明 #

• outer()函数比手动循环高效很多，非常适合这种需要对所有元素对进行操作的场景
• 如果不需要缩写形式，保留TRUE/FALSE的逻辑矩阵也完全可以满足判断需求，后续还能直接用于逻辑运算

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