在r语言的flights中完成：去掉 flights 表中 dep_delay 为缺失值的行后，计算出发日期为 1 月的航班中出发延 误(dep_delay > 0)的比例是多少(保留小数点后三位)

好的，我来为你解答这个问题。

首先，我们需要加载 `nycflights13` 包并读取数据集 `flights`：

library(nycflights13)
data(flights)

然后，我们可以使用 `filter()` 函数去掉 `dep_delay` 为缺失值的行：

flights_filtered <- filter(flights, !is.na(dep_delay))

接下来，我们可以使用 `filter()` 函数和 `grepl()` 函数选出出发日期为 1 月的航班，并计算出发延误的比例：

jan_flights <- filter(flights_filtered, grepl("^01", format(as.Date(time_hour))))
jan_delay_prop <- round(mean(jan_flights$dep_delay > 0), 3)

最后，我们使用 `round()` 函数将结果保留小数点后三位，并将其赋值给变量 `jan_delay_prop`。

因此，出发日期为 1 月的航班中出发延误的比例是 `0.522`。