如何在R中多次执行表达式直至成功，解决随机数导致的NA问题？

看起来你已经找对方向啦——用循环重试来规避随机数导致的NA问题完全可行！我来帮你把这个逻辑补全，再给你几个让代码更健壮、更易用的小技巧。

首先，先把你没写完的示例代码补全成可运行的版本，假设你的实际逻辑是当随机数rand <= 0.3时返回NA，我们模拟这个场景：

# 模拟你的业务逻辑：随机返回NA
get_result <- function() {
  rand <- runif(1)
  # 这里替换成你实际的代码逻辑
  if (rand > 0.3) rand else NA_real_
}

# 重试逻辑实现
max_tries <- 100
attempts <- 0
x <- NA

while (is.na(x) && attempts < max_tries) {
  attempts <- attempts + 1
  x <- get_result()
  
  # 可选：打印尝试进度，方便调试
  if (attempts %% 10 == 0) {
    cat("试过", attempts, "次了...\n")
  }
}

# 最终结果检查
if (is.na(x)) {
  warning(paste("试了", max_tries, "次还是没成功！"))
} else {
  cat("第", attempts, "次成功啦！结果是：", x, "\n")
}

如果你的代码里有多个地方需要这种重试逻辑，不如把它封装成一个可复用的函数，这样不用每次都写循环：

# 通用重试函数：直到获取非NA结果或达到最大尝试次数
retry_for_non_na <- function(expr, max_attempts = 100, verbose = TRUE) {
  attempts <- 0
  result <- NA
  
  while (is.na(result) && attempts < max_attempts) {
    attempts <- attempts + 1
    # 用tryCatch捕获可能的错误（如果你的代码除了NA还会报错）
    result <- tryCatch(eval(expr), error = function(e) NA)
    
    if (verbose && attempts %% 10 == 0) {
      cat("尝试第", attempts, "次\n")
    }
  }
  
  if (is.na(result)) {
    warning(paste("已达最大尝试次数", max_attempts, "，仍未获取有效结果"))
  } else if (verbose) {
    cat("第", attempts, "次尝试成功！\n")
  }
  
  return(result)
}

# 使用示例：直接传入你要执行的表达式
my_result <- retry_for_non_na({
  # 这里写你实际的代码
  rand <- runif(1)
  if (rand > 0.3) rand else NA_real_
})

• 设置合理的最大尝试次数：100次对于大多数低概率NA的场景已经足够，但如果你的逻辑出NA的概率较高（比如30%），可以计算一下需要多少次尝试才能保证高成功率（比如99%成功率需要约12次尝试）。
• 捕获错误而非仅检查NA：如果你的代码除了返回NA还可能抛出错误，上面通用函数里的tryCatch可以把错误也转化为NA，纳入重试逻辑。
• 调试时添加日志：循环里的打印语句可以帮你观察重试的频率，判断是否需要调整逻辑或者尝试次数。

内容的提问来源于stack exchange，提问作者Jacob Nelson