如何获取每个语料库的前25个单词(在R中)？

library(tm)
corpus <- Corpus(DirSource("corpus"))

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

dtm <- DocumentTermMatrix(corpus)

top_words <- tapply(dtm$dimnames$Terms, dtm$dimnames$Docs, function(x) head(x, 25))