比較下半部上半部分矩陣

Question

如果我有以下數據：

mat1   <- matrix(c(0,2,3,1,0,1,1,1,1), nrow=3) 
rownames(mat1) <- LETTERS[1:3] 
colnames(mat1) <- LETTERS[1:3] 

mat1 
# A B C 
#A 0 1 1 
#B 2 0 1 
#C 3 1 1 

如何得到一個data.frame，我知道這rowise矩陣條目比列條目更大？例如。我想對於爲mat1結果是某種data.frame表明：

A < B 
A < C 
B > A 
B = C 
C > A 
C = B 

我一直upper.tri等使用減法瞎搞，但這並沒有幫助。

Answer 1

比較每個元素mat1[i,j] 對角線上，mat1[j,i]， 可以使用轉t另一側對應的元素。

r <- sign(mat1 - t(mat1)) 
r 
# A B C 
# A 0 -1 -1 
# B 1 0 0 
# C 1 0 0 

paste( 
    colnames(r)[col(r)], 
    ifelse(r>0, ">", ifelse(r<0, "<", "=")), 
    rownames(r)[row(r)] 
) 
# [1] "A = A" "A > B" "A > C" "B < A" "B = B" "B = C" "C < A" "C = B" "C = C"