R比较两列之间的前导差异？

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

# 比较两列的差异
differences <- diff(data$A) != diff(data$B)

# 找到第一个差异的位置
first_difference <- which(differences)[1]

# 输出结果
cat("第一个差异发生在第", first_difference + 1, "行")

# 比较两列的所有差异
all_differences <- data$A != data$B

# 找到所有差异的位置
difference_positions <- which(all_differences)

# 输出结果
cat("差异发生在以下行：", paste(difference_positions, collapse = ", "))