R语言：如何确保数据框指定列数值递减？排查代码错误

原代码的错误点 #

1. 循环范围计算错误：2:ncol(check)-2 的运算优先级不符合预期，R会先生成2:ncol(check)的序列再整体减2，导致循环范围错误。正确的范围需要用括号明确分组，比如要检查所有连续年份对的话，应该是2:(ncol(check)-1)。
2. next语句逻辑错误：内层循环中的next会直接跳过当前循环的剩余迭代，导致无法检查所有年份的递增情况，只要第一次判断后就终止内层循环。
3. 变量类型不一致：TLS_error初始化为空字符串，后续赋值为数字1，类型混乱会导致过滤时出现潜在问题。
4. 循环效率低下：嵌套循环在R中不是最优实现方式，向量化操作更高效且易维护。

正确实现方案 #

推荐：向量化操作实现 #

利用apply和diff函数直接检测每行的年份序列是否存在递增情况（即差分>0）：

check <- data.frame(type = c("product 1","product 2","product 3"), 
                    yr1 = c(10, 5, 0), 
                    yr2 = c(15, 3, 0), 
                    yr3 = c(10, 2, 0), 
                    yr4 = c(7, 2, 0), 
                    yr5 = c(1, 1, 0))

# 提取所有以yr开头的列
year_cols <- grep("^yr", names(check))

# 标记违反非递增规则的行：只要存在后一年数值>前一年，标记为1
check$TLS_error <- apply(check[, year_cols], 1, function(row) {
  as.integer(any(diff(row) > 0))
})

# 筛选出不符合条件的行
check[check$TLS_error == 1, ]

修正版循环实现 #

如果坚持用循环，修正逻辑如下：

check <- data.frame(type = c("product 1","product 2","product 3"), 
                    yr1 = c(10, 5, 0), 
                    yr2 = c(15, 3, 0), 
                    yr3 = c(10, 2, 0), 
                    yr4 = c(7, 2, 0), 
                    yr5 = c(1, 1, 0))

check$TLS_error <- 0  # 初始化为0，符合条件为0，不符合为1

for (i in 1:nrow(check)) {
  # 循环遍历年份列（从yr1到倒数第二列）
  for(j in 2:(ncol(check)-1)) {
    if(check[i,j] < check[i,j+1]) {
      check$TLS_error[i] <- 1
      break  # 发现违规后提前退出内层循环，提升效率
    }
  }
}

# 使用dplyr筛选（需先加载dplyr包）
library(dplyr)
check %>% filter(TLS_error == 1)

输出结果 #

两种方法都会返回违规的行：

type yr1 yr2 yr3 yr4 yr5 TLS_error
1 product 1  10  15  10   7   1         1

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