如何稍微修改此代码以在 R 中生成正确的词云？

如何解决如何稍微修改此代码以在 R 中生成正确的词云？

假设我们有一个包含评论的数据框 (df)（每一行都是一条评论）：

comment
Amazing job
Terrible work

我们有一个包含正面和负面词的字典 (dict)：

positive negative
amazing  terrible

我正在尝试创建两个词云：一个是 df 中的正面评论，一个是 df 中的负面评论。为此，我尝试了以下代码但遇到了错误。任何人都可以建议修复吗？

library("quanteda")

corpus_example <- corpus(df)
head(corpus_example)

Output:

text1:
"Amazing job"

text2:
"Terrible work"

接下来，创建dfm：

comments_dfm <- dfm(corpus_example,dictionary = dict)
head(comments_dfm)

Output:
      positive negative
text1 1        0
text2 0        1

即它显示了 dict 和 text1 中存在多少正面和负面词（根据 text2）。 text1 被认为是正面的，而 text2 被认为是负面的。

最后，我尝试使用 textplot_wordcloud(comments_dfm) 创建词云，但这只会返回一个包含 comments_dfm 标题的词云，即词 positive 和 negative。相反，我想要两个词云：一个包含 Amazing job（因为它被认为是正面评论），另一个包含 Terrible work（因为它是负面评论）。

有人知道如何解决这个问题吗？