我对句子注释有疑问
我尝试将评论拆分成句子,然后注释每个句子 用于pos标签。但这没用。
review=as.String(servqual$Review_Text[186])
review_split=str_split(review,"[:punct:]")
for (l in 1:(lengths(review_split)-1))
{
string1=as.String(review_split[[1]][l])
sent_token_annotator=Maxent_Sent_Token_Annotator()
word_token_annotator=Maxent_Word_Token_Annotator()
annotate_word=annotate(string1,list(sent_token_annotator,word_token_annotator))
pos_tag_annotator=Maxent_POS_Tag_Annotator()
annotate_pos=annotate(string1,pos_tag_annotator,annotate_word)
subset_word=subset(annotate_pos,type=="word")
tags_word=sapply(subset_word$features,'[[',"POS")
s_word_tag=as.String(sprintf("%s%s%s",string1[subset_word],"/",tags_word))
review_split[[1]][l]=str_replace_all(s_word_tag,"\n"," ")
}
e(s,a)中的错误:找不到句子标记注释。
traceback()
6:stop(“未找到句子标记注释”)
5:e(s,a)
4:粘贴(y $ id,y $ type,y $ start,y $ end,sep =“ \ r”)
3:merge.Annotation(a,e(s,a))
2:merge(a,e(s,a))
1:注释(字符串1,列表(sent_token_annotator,word_token_annotator))
我希望输出为带有所有句子的每个单词的pos标签。