R中bind_tf_idf()出现tapply参数长度不一致错误如何解决

问题根源 #

• bind_tf_idf()第三个参数要求传入存储单文档内单词出现次数的列名，你误传入了sum函数，参数匹配错误
• 原始数据未提前聚合每个Class（文档）下每个word（单词）的出现次数，不符合函数输入要求

修复代码 #

# 加载依赖包
library(tidyverse)
library(tidytext)

# 第一步：统计每个Class下各单词的出现次数
test_2_count <- test_2 %>%
  count(Class, word, name = "n")

# 第二步：计算tf-idf指标
test_2_tf_idf <- test_2_count %>%
  bind_tf_idf(term = word, document = Class, n = n)

结果说明 #

运行后得到的test_2_tf_idf会自动生成tf、idf、tf_idf三列计算结果，结构和你提供的示例表完全匹配，Class列对应示例中的book列。

内容的提问来源于stack exchange，提问作者aurelius_37809