for循环不会通过下一个元素

问题描述 投票:0回答:1

下面的代码成功执行,但是如果发现stats数据帧有0行并且没有执行,则会停止运行,然后重新查找具有多于0行的下一组行,以至于遇到了我放置了[C0 ]语句仍然停止。请帮帮我!

next
r
1个回答
0
投票

您可以依赖地绑定

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)
  }
}
© www.soinside.com 2019 - 2024. All rights reserved.