如何在R循环中设置tryCatch捕获错误并继续计算行和

针对字符列导致rowSums报错、循环中断的问题，直接在嵌套循环里用tryCatch捕获错误即可，既保留原有循环逻辑，又能让程序跑完所有行，同时输出错误位置。

修改后的完整代码：

# 原始数据
mylist <- list(a=data.frame(v1=1:3,v2=3:1),
               b=data.frame(v1=19:21,v2=23:21),
               c=data.frame(v1=letters[1:3],v2=1:3,v3=3:1),
               d=data.frame(v1=1:8,v2=8:1,v3=letters[1:8]),
               e=data.frame(v1=9:1,v2=19:27))

# 加入tryCatch的嵌套循环
for(i in 1:length(mylist))
{
  x <- mylist[[i]]
  for(j in 1:nrow(x))  # 用nrow替代dim(x)[1]，代码更直观
  {
    tryCatch({
      # 尝试计算行和，可根据需求把结果存起来，示例中直接打印
      current_sum <- rowSums(x[j, ])
      print(paste("行和：", current_sum, " | 位置：", i, j))
    }, error = function(err) {
      # 捕获错误时输出指定格式的错误信息
      print(paste("Error in", i, j))
    })
  }
}

关键说明： #

• tryCatch核心逻辑：先尝试执行行和计算，若报错则触发error块代码，输出错误位置；
• nrow(x)替代dim(x)[1]仅为提升代码可读性，不影响功能；
• 若需保存有效行和结果，可提前创建结果容器（如result_list <- list()），在成功计算块中赋值result_list[[paste(i,j)]] <- current_sum。

运行后会输出所有可计算的行和，以及错误位置提示，示例输出片段：

[1] "行和： 4  | 位置： 1 1"
[1] "行和： 4  | 位置： 1 2"
[1] "行和： 4  | 位置： 1 3"
[1] "行和： 42  | 位置： 2 1"
[1] "Error in 3 1"
[1] "Error in 3 2"
...

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