R语言循环逐行执行卡方检验时如何跳过含零值的报错无效行？

核心问题根源：原有tryCatch()的作用位置错误，无法实现逐行容错

• 失效原因：将tryCatch()包裹在整个apply()流程外层时，只要循环内任意一行触发运行报错，整个遍历流程会直接中断，完全达不到逐行识别、逐行跳过无效行的效果。
• 正确改造逻辑：将容错逻辑内嵌到逐行执行的函数内部，让每一行的计算独立捕获报错，遇到无效输入时直接返回空值，待所有行遍历完成后，统一过滤空结果、合并有效计算值。

可直接复用的代码实现 #

首先加载依赖包、复现测试数据：

library(broom)
library(dplyr)

# 复现问题对应的测试数据
df <- structure(
  list(
    `total primary - yes RS` = c(0L, 138L, 101L, 86L, 118L),
    `total primary - no RS` = c(0L, 29L, 39L, 35L, 38L),
    `total secondary- yes rs` = c(0L, 6L, 15L, 3L, 15L),
    `total secondary- no rs` = c(0L, 0L, 7L, 1L, 2L)
  ),
  row.names = c(NA, -5L),
  class = c("tbl_df", "tbl", "data.frame")
)

基础版（自动跳过无效行，输出有效检验结果） #

# 带内嵌容错的逐行检验函数
row_chisq <- function(row_vec) {
  # 前置校验：全零行直接返回空值，提前规避无意义报错
  if (all(row_vec == 0)) {
    return(tibble())
  }
  # 捕获计算过程中的所有运行报错，不中断整体流程
  tryCatch(
    expr = {
      mat <- matrix(row_vec, ncol = 2)
      tidy(chisq.test(mat))
    },
    error = function(e) {
      return(tibble())
    }
  )
}

# 遍历所有行，合并有效结果，自动过滤空值
result <- apply(df, 1, row_chisq) %>% 
  bind_rows()

进阶版（记录行号与报错信息，方便溯源） #

如果需要定位具体哪一行被跳过、每一行的报错原因，可使用带溯源信息的版本：

row_chisq_with_trace <- function(row_id, row_vec) {
  if (all(row_vec == 0)) {
    return(tibble(row_index = row_id, error_msg = "行内无正数值，不符合卡方检验输入要求"))
  }
  tryCatch(
    expr = {
      mat <- matrix(row_vec, ncol = 2)
      res <- tidy(chisq.test(mat))
      res$row_index <- row_id
      return(res)
    },
    error = function(e) {
      return(tibble(row_index = row_id, error_msg = e$message))
    }
  )
}

# 逐行遍历，保留溯源信息
result_trace <- lapply(
  X = seq_len(nrow(df)),
  FUN = function(i) row_chisq_with_trace(i, as.numeric(df[i, ]))
) %>% bind_rows()

方案效果说明 #

• 所有不符合卡方检验输入要求的行（如全零行、某维度总和为0的行）会被自动跳过，不会触发整个循环中断
• 基础版仅输出成功完成检验的结果，适合数据量较大、不需要溯源无效行的场景
• 进阶版会留存每一行的位置与对应报错信息，方便后续排查数据问题

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