R中使用unnest_tokens时出现UseMethod("pull")错误求助

问题根源 #

你遇到的报错核心原因是：TidySymptoms并非你以为的tibble/数据框对象，而是字符型向量。
unnest_tokens是tidytext包的专属函数，要求输入的第一个参数必须是数据框/tibble类型，它内部会自动调用dplyr的pull()函数提取你指定的文本列，而pull()不能作用在字符向量上，就触发了你看到的报错。

你的预处理代码的问题出在这步：

TidySymptoms <- AllData21NAGONE_tbl$SYMPTOM_TEXT 

用$操作符从tibble中提取单列时，返回的结果是向量，不会保留数据框结构，你后续给向量设置names的操作也无法将它转换为数据框。

修复方案 #

两种写法都可以解决问题，按需选择即可：

方案1：提取单列时保留tibble结构 #

直接用select提取列并改名，不需要单独设置列名，也不会丢失数据框结构：

# 替换你原有子集提取+命名的代码
TidySymptoms <- AllData21NAGONE_tbl %>% select(Text = SYMPTOM_TEXT)

# 再运行你的分词代码即可正常执行
unnestedSymptoms <- TidySymptoms %>% 
  unnest_tokens(word, Text) 

方案2：将现有字符向量转为tibble #

如果你已经生成了TidySymptoms字符向量，直接转成单列tibble再处理即可：

# 把字符向量转为单列tibble
TidySymptoms <- tibble(Text = TidySymptoms)

# 再运行分词代码
unnestedSymptoms <- TidySymptoms %>% 
  unnest_tokens(word, Text) 

补充注意 #

你原有代码里as_tibble(AllData21NAGONE)的写法有误，管道操作符已经将前序结果传入函数，不需要重复传入参数，直接写as_tibble()即可：

AllData21NAGONE_tbl <- AllData21NAGONE %>% as_tibble()

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