有没有办法从R中的字符串中删除所有的副词和代词？

# 定义一个字符串
text <- "I am very happy and excited about this new project."

# 定义副词和代词列表
adverbs <- c("very", "really", "extremely")
pronouns <- c("I", "you", "he", "she", "it", "we", "they")

# 使用正则表达式和gsub函数删除副词和代词
clean_text <- gsub(paste0("\\b(", paste(adverbs, collapse = "|"), "|", 
                          paste(pronouns, collapse = "|"), ")\\b"), "", text, ignore.case = TRUE)

# 输出结果
print(clean_text)

[1] "am happy and excited about this new project."