在R中的列表中查找行中最频繁的元素

Question

我有如下数据表：

n    col1
1    c('1', '1', '2')
2    1
3    c('3', '3', '1')
4    3

作为输出，我只想让每行中出现频率最高的字符。所以，它会是这样的：

 n    col2
 1    1
 2    1
 3    3
 4    3

我真的不知道如何在 R 中解决这个问题。它应该类似于在列表中找到最常见的值。我用谷歌搜索有 table() 函数，但我不知道我应该如何在这里使用它。看起来并不难，但我就是想不通

Answer 1

我们可以从这里使用Mode

Mode <- function(x) {
  ux <- unique(x)
  ux[which.max(tabulate(match(x, ux)))]
}

df1$col2 <- sapply(df1$col1, Mode)
df1$col2
#[1] "1" "1" "3" "3"

---

或tidyverse

library(dplyr)
library(purrr)
df1 %>%
    transmute(n, col2 = map_chr(col1, Mode))

数据

df1 <- data.frame(n = 1:4, col1 = I(list(c('1', '1', '2'), '1', 
      c('3', '3', '1'), '3')))