目前收到错误消息：
Error in UseMethod("type"): no applicable method for 'type' applied to an object of class "factor"
我猜这是因为我通过我的函数传递了错误类型的对象，但这是我的代码：
for(i in 1:length(names(testwords))){ allwords <- lapply(testwords[i], function(z)
count = sapply(df.OE[i], function(x) sum(str_count(x, z))))}
其中testwords是长度为15的列表，df.OE是一个包含2567个观测值和15个变量的数据帧。任何想法为什么会发生这种情况，甚至更好我如何解决它
背景： 我打算让for循环遍历测试词的每个列表项（单词/术语列表），然后返回这些单词/术语出现的频率。
我开始使用的代码取自Julius的答案的第二部分：R count times word appears in element of list
很高兴澄清
谢谢， 约翰
编辑：
此代码有效：
w <- c("a","q","e")
allwords <- lapply(w, function(z)
count = sapply(df.OE[1], function(x) sum(str_count(x, z))))
所以我假设问题是如何通过我的代码传递testwords？