使用apply系列函数传递对象时出错：UseMethod("type")报错

首先说核心问题：你遇到的这个报错，本质是**df.OE里的变量是factor类型**，而str_count()（应该是stringr包里的函数吧？）只认字符型（character）数据，把factor扔进去就会触发这个"没有适用方法"的错误。另外你的循环嵌套写法也有点绕，咱们一步步来解决：

第一步：把factor列转成字符型 #

很多时候用read.csv之类的函数读数据时，字符串会被自动转成factor，先把df.OE的所有factor列转成字符型：

用base R的写法： #

# 遍历每一列，判断如果是factor就转成character，否则保持原样
df.OE[] <- lapply(df.OE, function(x) if(is.factor(x)) as.character(x) else x)

如果你用dplyr的话更简洁： #

library(dplyr)
df.OE <- df.OE %>% mutate_all(~if_else(is.factor(.), as.character(.), .))

第二步：重构你的统计逻辑 #

原来的for循环+lapply嵌套有点冗余，而且df.OE[i]取的是单列数据框不是向量，容易出问题。既然testwords是长度15的列表，刚好对应df.OE的15个变量，咱们用mapply来一对一匹配处理，代码更清晰：

library(stringr) # 确保加载了stringr包
allwords <- mapply(function(col_data, target_words) {
  # 对每个目标单词z，统计它在当前列所有文本里的出现总次数
  sapply(target_words, function(z) sum(str_count(col_data, z)))
}, col_data = df.OE, target_words = testwords, SIMPLIFY = FALSE)

这个代码的逻辑是：

• 对df.OE的每一列（col_data），对应testwords里的一组目标单词（target_words）
• 用sapply遍历每个目标单词，统计它在该列所有行中的出现次数总和
• 最后返回一个长度15的列表，每个元素对应df.OE一列的统计结果

为什么原来的代码会出错？ #

1. 数据类型不匹配：df.OE的列是factor，str_count无法处理factor对象，必须转成character
2. 索引方式问题：df.OE[i]返回的是一个只有一列的数据框，而str_count需要的是字符向量，应该用df.OE[[i]]来取列的向量（不过用mapply更省心）

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