使用R中的循环创建wordcloud输出

Question

我是R的新手，目前正在学习循环函数

我有很多数据集(在一个目录中有word和freq的文本文件，我必须为其制作wordcloud.

目录名称循环

Datasets are a.txt, b.txt, c.txt
Each dataset has the following 2 columns
name  freq
Will   45 
Can    34 
Good   32 
Bad    30
Like   25

我需要通过读取目录中的每个文本文件来创建一个wordcloud，并从每个文件中生成一个与文本文件名相同名称的png文件。

代码至今

#load libraries
library(tm)
library(wordcloud)
library(SnowballC)
library(RColorBrewer)
# read all data files in directory
ldf <- list()
listtxt <- dir(pattern = "*.txt")
for (i in 1:length(listtxt)){ldf[[i]] <- read.delim(listtxt[i])}
# generate wordcloud from each file
for (i in 1:length(listtxt)){ldf[[i]] <- wordcloud(listtxt[i$name, i$freq, scale = c(2,.01), 
random.order = FALSE, colors = brewer.pal(8,"Dark2"])}
It gives an error “$ operator is invalid for atomic vectors”

Answer 1

不需要写两个单独的循环，在同一个循环中读取数据并准备wordcloud。

ldf <- lapply(listtxt, function(x) {
df <- read.delim(x)
wordcloud::wordcloud(df$name, df$freq)
#If the column name is not same in all the text files
#you can also refer columns by their position
#wordcloud::wordcloud(df[[1]], df[[2]])
})

根据您的要求，在wordcloud函数中添加其他参数(如random.order = FALSE(。ldf将具有单词云列表。

Answer 2

您将i定义为for循环的索引。在这种情况下，它是一个整数。不能使用$访问整数的属性，因为它们没有属性。您只能使用列表和数据帧来执行此操作。

请参阅其他答案以获得正确的wordclouds操作方法。