R Studio运行代码报错：UseMethod("tbl_vars")无适用字符类方法

别担心，tbl_vars其实是dplyr包里的内部函数（不是对外公开的，所以你找不到它完全正常），这个报错的核心是：代码里某个本该是数据框/tibble的对象，现在变成了字符型，导致dplyr的函数没法处理它。

结合你的代码和数据集来看，最可能的问题出在anti_join(stopwords)这一步，我给你拆解清楚：

问题根源 #

1. 停用词格式不符合要求：anti_join要求两个输入都是数据框，而且要有匹配的列名。如果你用的是tidytext的停用词，正确的对象名是stop_words（注意是下划线，不是stopwords）——这个是tidytext自带的标准数据框，包含word和lexicon列。
   • 要是你自己定义了一个叫stopwords的字符向量（比如stopwords <- c("the", "and", ...)），那它不是数据框，anti_join会把它当成字符型对象处理，直接触发tbl_vars的报错。
2. 次要小问题：write_feather的路径用.txt后缀不太合适，feather文件应该用.feather后缀，虽然这不是报错的直接原因，但会影响后续读取。

修复步骤 #

1. 修正停用词对象 #

• 如果你用tidytext的内置停用词，直接调用stop_words即可：

  library(tidytext)
  # 加载内置停用词数据框
  data(stop_words)
  

• 如果你用自定义的停用词向量，把它转换成数据框：

  # 假设你的stopwords是字符向量
  stopwords_df <- data.frame(word = stopwords, stringsAsFactors = FALSE)
  

2. 优化你的循环代码 #

我把你的代码做了一点tidyverse风格的优化，同时修正了潜在问题：

library(dplyr)
library(tidytext)
library(feather)

# 先定义batch大小（根据你的实际情况调整）
batch <- 100

for (i in 1:ceiling(nrow(reviews)/batch)) {
  row_start <- i*batch - batch + 1
  row_end <- ifelse(i*batch < nrow(reviews), i*batch, nrow(reviews))
  print(paste("Processing row", row_start, "to row", row_end))
  
  reviews_subset <- reviews[row_start:row_end, ] %>% 
    # 拆分成词
    unnest_tokens(word, text) %>%
    # 用row_number()自动生成行号，比手动赋值更安全
    mutate(row = row_number()) %>%
    # 用正确的停用词数据框，指定by列避免歧义
    anti_join(stop_words, by = "word") %>%
    arrange(row)
  
  # 保存为feather格式，用正确的后缀
  write_feather(reviews_subset, path = paste0("reviews", i, ".feather"))
}

3. 额外检查点 #

确认你的reviews对象确实是数据框/tibble——从你提供的数据集示例看，review是标准数据框，只要代码里的reviews是它的正确副本，就没问题。如果不确定，可以用class(reviews)查看类型。

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