和多个文本并在R中创建新列

Question

如何在新列中计算和打印结果？

案件：

恐怖

恐怖

恐怖

恐怖

冒险

动作

动作

恐怖

输出：

\类别类_。

#^恐怖#^#^#^

行动.2

#^冒险#^#^

Answer 1

我们可以使用table

as.data.frame(table(df1$Category))

或

library(data.table)
setDT(df1)[, list(Total=.N), Category]

或

library(dplyr)
df1 %>%
   group_by(Category) %>%
   summmarise(Total=n())