技术问询：在nycflights13数据集中，9月哪家航司延误起飞航班最多？

原代码问题说明 #

你的代码当前统计的是9月每家航空公司的总航班数量，没有筛选出「延误起飞」的航班（行业通常定义为起飞延误时间大于0分钟，即dep_delay > 0），因此无法得到正确结果。

修正后的代码 #

library(nycflights13)
library(dplyr)

# 统计9月每家航司的延误起飞航班数
q8 <- flights %>%
  select(carrier, month, dep_delay) %>%
  filter(month == 9, dep_delay > 0) %>%  # 新增筛选延误起飞的条件
  group_by(carrier) %>%
  tally() %>%
  arrange(desc(n))

# 可选：关联airlines表，显示航空公司全称
q8_with_name <- q8 %>%
  left_join(airlines, by = "carrier") %>%
  select(carrier, name, n) %>%
  arrange(desc(n))

# 打印结果
print(q8_with_name)

关键修正点 #

• 在filter步骤中添加dep_delay > 0，仅保留起飞延误的航班记录
• 关联airlines表可以将航空公司代码（如UA）转换为全称（如United Air Lines Inc.），让结果更易读

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