flights 数据中筛选出出发时间延误 1 小时或更多的航班，并将生成的新数 据保存为 flights_dep1hr

假设您已经加载了`flights`数据集，可以按以下步骤筛选出出发时间延误1小时或更多的航班，并将生成的新数据保存为`flights_dep1hr`：

# 筛选出出发时间延误1小时或更多的航班
flights_dep1hr <- subset(flights, dep_delay >= 60)

# 将新数据保存为CSV文件，文件名为flights_dep1hr.csv
write.csv(flights_dep1hr, file = "flights_dep1hr.csv", row.names = FALSE)

上述代码中，`subset()`函数用于基于条件筛选数据集，第一个参数是要筛选的数据集，第二个参数是筛选条件。在本例中，条件是`dep_delay >= 60`，表示出发延误时间超过1小时。`write.csv()`函数用于将数据保存为CSV文件。第一个参数是要保存的数据集，第二个参数是要保存的文件名，第三个参数`row.names`设置为`FALSE`表示不保存行名。