请使用R语言写一个提取文本中关键词的程序

以下是一个简单的R程序，用于提取文本中的关键词。它使用了tm包中的函数，并结合了一些常见的文本清洗步骤。

# 导入tm包
library(tm)

# 读取文本文件
doc <- readLines("text.txt")

# 创建corpus对象
corpus <- Corpus(VectorSource(doc))

# 清洗文本
corpus <- tm_map(corpus, tolower) # 将所有字符转换为小写
corpus <- tm_map(corpus, removeWords, stopwords("english")) # 移除停用词
corpus <- tm_map(corpus, removePunctuation) # 移除标点符号
corpus <- tm_map(corpus, stripWhitespace) # 移除多余的空格

# 创建词袋
tdm <- TermDocumentMatrix(corpus)

# 提取关键词
freq <- rowSums(as.matrix(tdm))
topwords <- names(sort(freq, decreasing = TRUE)[1:10])

# 输出结果
print(topwords)

这个程序将文本文件读取到一个corpus对象中，并进行了一些文本清洗步骤，包括将所有字符转换为小写、移除停用词、移除标点符号和移除多余的空格。然后，它创建了一个词袋，并使用rowSums函数计算每个词在文本中出现的次数。最后，程序提取出出现频率最高的前10个关键词，并将它们输出到控制台。