是否有R函数(文本分析)来标记单词的主语(例如:名词、形容词)？

install.packages("openNLP")
library(openNLP)

# 加载模型
sent_tokenizer <- Maxent_Sent_Token_Annotator()
word_tokenizer <- Maxent_Word_Token_Annotator()
pos_tagger <- Maxent_POS_Tag_Annotator()

# 示例文本
text <- "The quick brown fox jumps over the lazy dog."

# 分词和词性标注
tokens <- word_tokenizerannotate(text)
pos_tags <- pos_taggerannotate(tokens)

# 结果提取
tags <- sapply(pos_tags, function(x) x$features[[1]]$tag)
data.frame(word = unlist(tokens), tag = tags)

install.packages("spacyr")
library(spacyr)

# 加载spaCy模型
spacy_initialize(model = "en_core_web_sm")

# 示例文本
text <- "The quick brown fox jumps over the lazy dog."

# 进行词性标注
doc <- spacy_parse(text, tag = TRUE, lemma = FALSE, nounphrase = FALSE, parse = FALSE, sentiment = FALSE)
data.frame(word = doc$token$text, tag = doc$token$tag)