如何使用R计算文档集合/语料库中出现频率最高的术语/单词？

install.packages("tm")
install.packages("SnowballC")
library(tm)
library(SnowballC)

corpus <- VCorpus(DirSource("path_to_folder_containing_documents"))

corpus <- tm_map(corpus, content_transformer(tolower))  # 将文本转换为小写
corpus <- tm_map(corpus, removePunctuation)  # 去除标点符号
corpus <- tm_map(corpus, removeNumbers)  # 去除数字
corpus <- tm_map(corpus, removeWords, stopwords("english"))  # 去除英文停用词
corpus <- tm_map(corpus, stemDocument)  # 进行词干提取

dtm <- DocumentTermMatrix(corpus)

term_freq <- colSums(as.matrix(dtm))
term_freq <- sort(term_freq, decreasing = TRUE)

top_terms <- head(term_freq, n = 10)  # 提取前10个术语