R控制每行数据帧的连续NA值的数量

# 创建一个示例数据框
data <- data.frame(A = c(1, NA, NA, NA, 2),
                   B = c(NA, NA, 3, 4, NA),
                   C = c(NA, NA, NA, NA, 5))

# 计算每行数据框中连续NA值的数量
num_consecutive_na <- apply(data, 1, function(row) {
  max_consecutive_na <- 0
  current_consecutive_na <- 0
  
  for (value in row) {
    if (is.na(value)) {
      current_consecutive_na <- current_consecutive_na + 1
    } else {
      max_consecutive_na <- max(max_consecutive_na, current_consecutive_na)
      current_consecutive_na <- 0
    }
  }
  
  max_consecutive_na
})

# 输出结果
num_consecutive_na