R中成对评估矩阵的值数组

Question

我正在尝试将数组转换为矩阵，其中矩阵单元值评估每个成对值是否相同或不同。

例如：我希望像这样转换一个数组：

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

到这样的矩阵：

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

其中“T”表示两个值相等（即第一个条目和第二个条目都等于“apple”），“F”表示它们不同。

谢谢！

Answer 1

您可以在此处使用apply 和upper.tri

m=apply(array,2,function(x) x==array)
m[upper.tri(m)] <- ''
m
     m1      m2      m3    
[1,] "TRUE"  ""      ""    
[2,] "TRUE"  "TRUE"  ""    
[3,] "FALSE" "FALSE" "TRUE"