Я пытаюсь пометить POS для текстов для рецензируемых текстов, загруженных из набора данных Yelp (Раунд 11).Ниже перечислены функции, которые я написал:
r <- unlist(lapply(rec_texts, function(x) { str_split(x, "\n") }))
R_tagPOS <- function(x, ...) {
r <- as.String(x)
word_token_annotator <- Maxent_Word_Token_Annotator()
a2 <- Annotation(1L, "sentence", 1L, nchar(r))
a2 <- annotate(r, word_token_annotator, a2)
a3 <- annotate(r, Maxent_POS_Tag_Annotator(), a2)
a3w <- a3[a3$type == "word"]
POStags <- unlist(lapply(a3w$features, `[[`, "POS"))
POStagged <- paste(sprintf("%s/%s", s[a3w], POStags), collapse = " ")
list(POStagged = POStagged, POStags = POStags)
}
POS_R <- lapply(r, R_tagPOS)
Но результат будет таким, как этот:
Error in e(s, a) : no word token annotations found
8.stop("no word token annotations found")
7. e(s, a)
6.paste(y$id, y$type, y$start, y$end, sep = "\r")
5.merge.Annotation(a, e(s, a))
4.merge(a, e(s, a))
3.annotate(r, Maxent_POS_Tag_Annotator(), a2)
2.FUN(X[[i]], ...)
1.lapply(r, R_tagPOS)
Rec_texts - это тексты обзора из вызова набора данных Yelp.
Classes 'tbl_df', 'tbl' and 'data.frame': 2000 obs. of 1 variable:
$ text: chr "Mix is such a beautiful restaurant and you have a gorgeous
view of the strip while you're enjoying your dinner!"|
__truncated__"WooooooHooooo 100th review!!! I eat here all the time,
but I've gotta take the chance to be the 100th review.\"| __truncated__
"My bf and I came for a small snack and some brews. We got the pretzel
and cheese appetizer. The pretzel was ver"| __truncated__ "The food was
amazing! This is a must for me now when I come visit Las Vegas! Everyone
was very friendly. The ow"| __truncated__ ...
Могу ли я спросить, кто-нибудь сталкивался с такой ситуацией раньше или кто-нибудь знает, как решить эту проблему?Я думаю, что это как-то связано с данными.Потому что этот код прекрасно работает с другим набором текстовых данных для просмотра, предоставленным третьей стороной.