如何检查数据框columnX是否降序及相同值时columnY的字母序破tie？

咱们先拆解下你的代码为啥没返回结果，再给出完全符合需求的解决方案：

你的代码存在的核心问题 #

• 循环范围完全错误：1:length(data_frame)遍历的是数据框的列数，而不是行数！要检查行的排序，应该用1:(nrow(data_frame)-1)（毕竟要对比第ii行和ii+1行，最后一行没有下一行可参照）。
• 多余的next逻辑：你跳过了第1行和最后一行的检查，但第1行明明需要和第2行对比，这个判断直接漏掉了关键的初始校验。
• 需求覆盖不全：你的代码只检查了X值相等的情况，完全没验证X本身是否是降序排列——这可是需求里的首要条件啊！
• ifelse误用：ifelse是做向量化判断的，这里用普通if就足够了，而且把return放在ifelse里的行为也不符合预期。

修复后的循环版本代码 #

我写了一个完整的函数，完全覆盖你的需求：先验证columnX降序，X相等时用columnY的字母升序打破平局：

check_sorting <- function(data_frame) {
  # 遍历每一对相邻行（从第1行到倒数第2行）
  for (ii in 1:(nrow(data_frame) - 1)) {
    current_x <- data_frame[["columnX"]][ii]
    next_x <- data_frame[["columnX"]][ii + 1]
    
    # 先检查columnX是否符合降序要求
    if (current_x < next_x) {
      return(FALSE)  # 当前X比下一行小，不符合降序，直接返回FALSE
    } else if (current_x == next_x) {
      # 当X值相等时，检查columnY是否按字母升序排列
      current_y <- data_frame[["columnY"]][ii]
      next_y <- data_frame[["columnY"]][ii + 1]
      if (current_y > next_y) {
        return(FALSE)  # 当前Y字母顺序靠后，不符合要求，返回FALSE
      }
    }
    # 如果current_x > next_x，说明符合降序，直接继续循环即可
  }
  # 所有行都通过检查，返回TRUE
  return(TRUE)
}

更高效的向量化版本（推荐） #

R里尽量避免循环，用向量化操作速度更快，尤其是数据量大的时候：

check_sorting_vec <- function(data_frame) {
  # 生成columnX的降序判断向量：每一对相邻行的X是否满足前>=后
  x_desc <- data_frame[["columnX"]][-nrow(data_frame)] >= data_frame[["columnX"]][-1]
  
  # 生成columnY的升序判断向量（仅在X相等时生效）
  y_asc <- rep(TRUE, nrow(data_frame) - 1)
  same_x <- data_frame[["columnX"]][-nrow(data_frame)] == data_frame[["columnX"]][-1]
  y_asc[same_x] <- data_frame[["columnY"]][-nrow(data_frame)][same_x] <= data_frame[["columnY"]][-1][same_x]
  
  # 所有条件都满足则返回TRUE，否则FALSE
  all(x_desc & y_asc)
}

使用示例 #

假设你的数据框叫df，直接调用函数就行：

check_sorting(df)
# 或者向量化版本
check_sorting_vec(df)

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