我想知道如何制作由R中的几个单词组成的关键字术语文档矩阵

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

# 假设有三个文档
doc1 <- "This is the first document"
doc2 <- "This document is the second document"
doc3 <- "And this is the third one"

# 创建文档集合
docs <- Corpus(VectorSource(c(doc1, doc2, doc3)))

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

# 创建词袋（Term Document Matrix）
dtm <- DocumentTermMatrix(docs)

# 转换为关键字术语文档矩阵
ktdm <- as.matrix(dtm)