使用wordcloud2生成词云时R代码报错求助

错误1：对character类型调用ungroup()无适用方法 #

原因 #

ungroup()是dplyr包中用于取消数据框分组状态的函数，仅支持tibble/data.frame类型对象。如果代码中调用ungroup()前，数据被转换成了字符向量（比如直接对字符串执行分组/聚合操作后未转回数据框），就会触发该错误。

修正步骤 #

• 确保分词、统计词频的全程基于数据框对象操作：
  1. 解析JSON字段后，将段落文本整理为数据框的一列（例如text列）
  2. 使用unnest_tokens()（tidytext包）分词时，保持输出为数据框格式，不要转换为字符向量
  3. 调用group_by()和summarise()后，对象仍为分组数据框，此时再调用ungroup()即可正常执行

错误2：anti_join()未指定by参数 #

原因 #

anti_join()要求两个数据框有可匹配的列，若x和y的列名不一致，或系统无法自动识别共同列，必须显式指定by参数定义匹配规则。比如分词结果数据框列名为word，但停用词表列名为term，就会触发该错误。

修正步骤 #

• 统一分词结果与停用词表的列名，或显式指定by参数：
  1. 查看停用词表列名（例如用colnames(stop_words)），若列名为word则无需额外操作；若为其他名称，可重命名（rename(stop_words, word = 原列名)），或在anti_join中写by = c("word" = "停用词表列名")
  2. 示例：若停用词表列名为term，则执行anti_join(stop_words, by = c("word" = "term"))

完整修正代码示例 #

假设Excel数据读取后为df，articlesDescription是JSON数组列，使用jsonlite解析、tidytext分词、dplyr处理数据：

library(readxl)
library(jsonlite)
library(tidytext)
library(dplyr)
library(wordcloud2)

# 读取Excel数据
df <- read_excel("你的文件路径.xlsx")

# 解析JSON格式的articlesDescription字段，合并所有段落文本
df <- df %>%
  mutate(text = map_chr(articlesDescription, ~paste(fromJSON(.), collapse = " ")))

# 分词、过滤数字、去除停用词、统计词频
word_counts <- df %>%
  unnest_tokens(word, text) %>%
  filter(!grepl("^\\d+$", word)) %>%
  # 用tidytext自带停用词表，列名为word，直接指定by参数
  anti_join(stop_words, by = "word") %>%
  group_by(word) %>%
  summarise(count = n()) %>%
  ungroup() %>%
  arrange(desc(count))

# 生成词云
wordcloud2(word_counts)

关键注意点 #

• 确保articlesDescription的JSON解析正确：如果是嵌套数组，可能需要用flatten或循环提取，保证fromJSON(.)返回可合并的文本向量
• 若使用自定义停用词表，务必保证列名与分词结果的word列一致，或在anti_join中明确指定匹配规则

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