回到 R 中循环的开头？

Question

我目前有一个 for 循环，它将遍历以单词分隔的段落列表，psw_list，随机选择一个单词段落，然后将该单词更改为另一个相同的词性。你会注意到底部的 else 语句是空白的，因为如果词性是列出的任何一个，我希望它回到 if 语句的开头，但我不确定如何，有什么想法吗？对不起，如果代码 sn-p 很长。

for (i in iterations){ # for a specific change in the total amount of changes
  n <- sample(names(psw_list), 1) 
  j <- sample(length(psw_list[[n]]), 1) 
  parsed <- spacy_parse(psw_list[[n]][j])
  pos <- parsed[1,6]
    # tabbing because the if starts here
  if (pos == "NOUN"){
    sample(nouns, 1) -> replacement
    as.character(replacement) -> replacement
    psw_list[[n]][j] <- replacement
  } else if (pos == "ADJ"){
    sample(adjs, 1) -> replacement
    as.character(replacement) -> replacement
    psw_list[[n]][j] <- replacement
  } else if (pos == "ADV"){
    sample(adverbs, 1) -> replacement
    as.character(replacement) -> replacement
    psw_list[[n]][j] <- replacement
  } else if (pos == "PROPN"){
    sample(proper_nouns, 1) -> replacement
    as.character(replacement) -> replacement
    psw_list[[n]][j] <- replacement
  } else if (pos == "ADP"){
    sample(prepositions, 1) -> replacement
    as.character(replacement) -> replacement
    psw_list[[n]][j] <- replacement
  } else if (pos == "VERB"){
    # Need to add nested if to determine if it's past or present tense
    sample(verbs_past, 1) -> replacement
    as.character(replacement) -> replacement
    psw_list[[n]][j] <- replacement
  } else if( word.pos == "AUX" || "CONJ" || "DET" || "INTJ" || "NUM" || "PART" || "PROPN" || "PUNCT" 
             || "SCONJ" || "SYM" || "X") {
   
  }
}

Answer 1

似乎您应该避免继续而不是尝试“返回”。在选择单词的前几行周围嵌套一个重复循环，直到找到已处理的单词

for (i in iterations){ # for a specific change in the total amount of changes

  repeat{

    n <- sample(names(psw_list), 1) 
    j <- sample(length(psw_list[[n]]), 1) 
    parsed <- spacy_parse(psw_list[[n]][j])
    pos <- parsed[1,6]
  
    if(pos %in% LIST_OF_ACCEPTABLE_POS) break;

  }

...rest of for loop...

}

``