R：计算出现次数

Question

我对Python更熟悉，但我需要在R中这样做。 我有一个这样的数据框：

     id                                               apps
   8400                              10,19,9,9,8,9,1,3,3,6
  10915                           10,2,6,2,3,2,2,3,2,3,2,6
  72331                    10,9,6,1,2,4,6,2,14,3,3,2,3,9,2

我想计算每个应用的出现次数，然后在新列中返回出现次数最多的应用：

     id                                               apps     Most
   8400                              10,19,9,9,8,9,1,3,3,6       9
  10915                           10,2,6,2,3,2,2,3,2,3,2,6       2
  72331                    10,9,6,1,2,4,6,2,14,3,3,2,3,9,2       2

贝斯茨。

我添加了这个案例的答案，也许它也可以帮助其他人:)。

Answer 1

让我回答我的问题，也许它也有助于其他人：

MyMode <-   function(x) {
x <- strsplit(x,",")
names(sort(-table(x)))[1]
}

然后应用它：

 df$most <- lapply(as.character(test$apps),MyMode)