我的R代码无法创建wordcloud

我清理了文本并将其转换为TDM TDM结果显示我有1个Doc和1个术语 我想这没有道理

我试图修改wordcloud的比例，但我意识到这与转换为TDM有很大关系

library(NLP)
library(tm)

essay <- "sukjin_essay_summary.txt"
essay_2 <- Corpus(VectorSource(essay))

#Data Cleaning
essay_data <- tm_map(essay_2, stripWhitespace)      
essay_data <- tm_map(essay_data, tolower)          
essay_data <- tm_map(essay_data, removeNumbers)     
essay_data <- tm_map(essay_data, removePunctuation) 
essay_data <- tm_map(essay_data, removeWords, stopwords("english"))

#create term document matrix
tdm_essay <- TermDocumentMatrix(essay_data)     #create TDM
TDM <- as.matrix(tdm_essay)
TDM

                      Docs
Terms                  1
sukjinessaysummarytxt  1

库（NLP）
图书馆（tm）
文章
“sukjin_tasse_summary.txt”
用作文本，您需要实际阅读您的数据，例如
文章我遵照您的建议，收到以下错误消息：扫描错误（file=file，what=what，sep=sep，quote=quote，dec=dec，：第2行没有1312个元素我将代码更改为：文章