Error in if (mrk[i] == 0) { : the condition has length > 1

当你遇到 "Error in if (mrk[i] == 0) {" 这样的错误，通常表示 R 语言在检查条件语句 `if (mrk[i] == 0)` 的时候，发现 `mrk[i]` 变量是一个向量而不是单个值。`mrk[i] == 0` 的条件应该是布尔类型的（true 或 false），而长度大于1意味着 `mrk[i]` 是一个包含多个元素的向量，每个元素需要单独判断。

解决这个问题，你需要确保 `mrk[i]` 是单个值，可以尝试以下几个步骤：

1. 检查 `mrk` 列是否已经按行处理好，如果它是一个矩阵或数据框，确保你引用的是正确的索引 `i`。

2. 如果 `mrk[i]` 需要逐个元素检查，你应该使用循环或者 `apply()` 函数，而不是简单的 `if` 语句。例如，你可以使用 `all(mrk[i] == 0)` 来检查整个向量是否全为零。

修复后的代码可能会像这样：

# 假设mrk是一个向量
if (length(mrk[i]) == 1 && mrk[i] == 0) {
  # your code here
} else {
  # handle non-zero or vector case
}