如何獲取r中不同參數的行和列值？

Question

我陷入一個問題。

我有數據集

v1   v2   v3  v4
VL   M    H   M
M    H    L   L
M    M    M   H
VH   H    H   VL

列名是v1 v2 v3，每個行的值將隨着五個參數而變化。 M-中，L-低，VL-非常低，VH-非常高，H-高。

我想要更高的列和行值。這意味着如果第一行中的M計數更高，則第一行的高值為M.如果行中有兩個更高的值，則將兩者都視為更高的值。 與列相同。 如果所有計數都相同，則選擇全部更高。

輸出：
行較高的值

A   B
1   M
2   L
3   M
4   H

最高價值

A    B
V1   M
V2   M,H
V3   H
V4   M,L,H,VL

Answer 1

這看起來是有效的：

ff = function(x) {
   tab = table(x)
   paste0(names(tab)[which(tab == max(tab))], collapse = ", ")
}
apply(DF, 2, ff)  #for columns
#           v1            v2            v3            v4 
#          "M"        "H, M"           "H" "H, L, M, VL" 
apply(DF, 1, ff)  #for rows
#[1] "M" "L" "M" "H"

DF ：

DF = read.table(text = 'v1   v2   v3  v4
VL   M    H   M
M    H    L   L
M    M    M   H
VH   H    H   VL', header = T, stringsAsFactors = F)