下面的代码成功执行,但是如果发现stats
数据帧有0行并且没有执行,则会停止运行,然后重新查找具有多于0行的下一组行,以至于遇到了我放置了[C0 ]语句仍然停止。请帮帮我!
next
您可以依赖地绑定
textrank<-NULL
for(i in lista){
if(i %in% dflist_T$VariaF){
Eachdesc <- subset(dflist_T, VariaF %in% i)
ud_model <- udpipe_load_model(model$file_model)
x <- udpipe_annotate(ud_model,x = Eachdesc$Description)
x <- as.data.frame(x)
stats <- keywords_rake(x = x,
term = "token", group = c("doc_id", "paragraph_id", "sentence_id"),
relevant = x$upos %in% c("NOUN", "ADJ"),
ngram_max = 4)
stats$Origin <- "dflist"
stats$lista <- i
if (nrow(stats) == 0) {
next}
textrank<-rbind(textrank,stats)
}
}