请使用【R语言】生成一段词云图代码

在R语言中，可以使用`tm`（文本挖掘包）和`wordcloud`包来创建词云图。下面是一个简单的示例，假设我们有一个名为`text_data.txt`的文本文件：

# 首先安装必要的包
install.packages("tm")
install.packages("wordcloud")

# 加载需要的库
library(tm)
library(wordcloud)

# 读取文本数据
data <- readLines("text_data.txt")

# 创建词频矩阵
corpus <- Corpus(VectorSource(data))
corpus <- tm_map(corpus, content_transformer(tolower)) # 转换为小写
corpus <- tm_map(corpus, removePunctuation)           # 移除标点符号
corpus <- tm_map(corpus, removeNumbers)               # 移除数字
corpus <- tm_map(corpus, stripWhitespace)             # 删除空白
tdm <- TermDocumentMatrix(corpus)

# 变成频率表
freq <- sort(colSums(as.matrix(tdm)), decreasing = TRUE)

# 生成词云图
wordcloud(words = names(freq), freq = freq,
          max.words = 100, # 显示最多100个最常见的词
          random.order = FALSE, # 按频率排序
          rot.per = 0.35,     # 字体随机旋转
          colors = brewer.pal(8, "Dark2") # 使用颜色主题
)

注意：这个例子假设文本文件存在并且内容是英文或能转换为小写的文本。实际操作时，你需要替换`"text_data.txt"`为你实际的数据源。