Я пытаюсь извлечь pos-теги по предложениям и аннотациям слов, где некоторые предложения дают ошибку аннотации предложений

Question

У меня проблема с аннотацией предложения

Я пытался разбить рецензию на предложения, а затем комментировать каждое предложение. для 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): аннотации токенов предложений не найдены.
отслеживающий ()
6: стоп («аннотации токенов предложений не найдены»)
5: е (с, а)
4: вставить (y $ id, y $ type, y $ start, y $ end, sep = "\ r")
3: объединение. Аннотация (a, e (s, a))
2: объединить (a, e (s, a))
1: аннотирование (строка 1, список (sent_token_annotator, word_token_annotator))

Я ожидаю вывод в виде pos-тегов с каждым словом всех предложений.