如何在R或Excel中检测航班起降记录的交替异常？

R 方法 #

修复你的原始代码 #

你代码的核心问题是列名错误：数据里的目标列是Movements，但你写的是data$event，导致代码没正确读取列内容。另外不要用data()作为变量名，这是R的内置函数，会引发冲突。修正后的代码如下：

# 读取数据
flight_data <- read.csv("Flight data.csv")

# 找出相邻行Movements相同的位置
incorrect_positions <- which(flight_data$Movements[-1] == flight_data$Movements[-length(flight_data$Movements)]) + 1

if (length(incorrect_positions) == 0) {
  cat("Movements列的值交替正常。\n")
} else {
  cat("Movements列在以下位置未正确交替：", incorrect_positions, "\n")
  # 给异常行添加标记
  flight_data$is_anomaly <- FALSE
  flight_data$is_anomaly[incorrect_positions] <- TRUE
}

更精准的航班成对检查 #

上面的代码只能抓相邻重复的情况，若要覆盖「单个航班仅有起降其中一种记录」的异常（比如示例里的067航班），需要按航班号分组检查：

library(dplyr)

# 按航班号分组，统计起降数量并标记异常航班
flight_check <- flight_data %>%
  group_by(`Flight number`) %>%
  summarise(
    takeoff_count = sum(Movements == "take-off"),
    landing_count = sum(Movements == "landing"),
    has_anomaly = takeoff_count != landing_count
  )

# 把异常标记合并回原数据，同时保留相邻重复的异常判断
flight_data <- flight_data %>%
  left_join(flight_check, by = "Flight number") %>%
  mutate(is_anomaly = has_anomaly | (Movements == lag(Movements, default = "")))

# 筛选查看所有异常行
filter(flight_data, is_anomaly)

Excel 方法 #

方法1：高亮相邻重复的Movements行 #

1. 选中Movements列（假设为A列）
2. 点击「开始」→「条件格式」→「新建规则」
3. 选择「使用公式确定要设置格式的单元格」，输入公式：

   =A2=A1
   

4. 设置高亮格式（比如红色填充），点击确定即可。

方法2：高亮未成对的航班行 #

1. 在空白列（比如D列）的D2单元格输入公式，统计对应航班的总记录数：

   =COUNTIF($B:$B,B2)
   

   下拉填充，正常成对的航班总记录数应为偶数。
2. 在E列E2单元格输入公式，标记记录数为奇数的异常航班：

   =MOD(D2,2)=1
   

3. 选中所有数据行，点击「条件格式」→「新建规则」，选择「使用公式确定要设置格式的单元格」，输入：

   =$E2=TRUE
   

4. 设置高亮格式即可。

也可以直接用精准公式判断起降数量是否平衡，在E2输入：

=COUNTIFS($B:$B,B2,$A:$A,"take-off")<>COUNTIFS($B:$B,B2,$A:$A,"landing")

下拉后，结果为TRUE的行即为异常行，再用条件格式高亮。

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