r - データ フレーム行の一意の要素をカウントし、出現回数が最大の要素を返します

Question

データフレーム行の一意の要素を数えて、最大の出現数で結果としてベクトルを返すことは可能ですか?

example:
a a a b b b b -> b 
c v f w w r t -> w
s s d f b b b -> b

Answer 1

はいtable

x=c("a", "a", "a", "b" ,"b" ,"b" ,"b")
table(x)
x
a b 
3 4 

data.tableで編集

DT = data.table(x=sample(letters[1:5],10,T),y=sample(letters[1:5],10,T))
#DT
#    x y
# 1: d a
# 2: c d
# 3: d c
# 4: c a
# 5: a e
# 6: d c
# 7: c b
# 8: a b
# 9: b c
#10: c d

f = function(x) names(table(x))[which.max(table(x))]
DT[,lapply(.SD,f)]
#   x y
#1: c c

Answer 2

すべての最大値を保持したい場合は、それらを明示的に要求する必要があることに注意してください。

それらを data.frame 内のリストとして保存できます。行ごとに 1 つしかない場合、リストは共通のベクトルに単純化されます

  df$result <- apply(df, 1, function(x) {T <- table(x); list(T[which(T==max(T))])})

最大のためのネクタイを使って:

df2 <- df[, 1:6]
df2$result <- apply(df2, 1, function(x) {T <- table(x); list(T[which(T==max(T))])})

> df2
  V1 V2 V3 V4 V5 V6 result
1  a  a  a  b  b  b   3, 3
2  c  v  f  w  w  r      2
3  s  s  d  f  b  b   2, 2

最大のネクタイなし:

df$result <- apply(df, 1, function(x) {T <- table(x); list(T[which(T==max(T))])})

> df
  V1 V2 V3 V4 V5 V6 V7 result
1  a  a  a  b  b  b  b      4
2  c  v  f  w  w  r  t      2
3  s  s  d  f  b  b  b      3