去掉 flights 表中 dep_delay 为缺失值的行后,计算出发日期为 1 月的航班中出发延 误(dep_delay > 0)的比例是(保留小数点后三位) r语言
时间: 2024-03-17 11:47:03 浏览: 26
假设数据框名为 `flights`,可以使用下列代码计算出发日期为 1 月的航班中出发延误的比例:
```
library(dplyr)
flights %>%
filter(!is.na(dep_delay), month == 1) %>%
summarize(prop_delay = mean(dep_delay > 0))
```
解释一下代码:
- `filter(!is.na(dep_delay), month == 1)`:去掉 `dep_delay` 为缺失值的行,并且筛选出发日期为 1 月的航班
- `summarize(prop_delay = mean(dep_delay > 0))`:计算出发延迟的比例,即出发延迟的航班数占总航班数的比例
最终输出结果为一个数据框,其中包含一列 `prop_delay`,表示出发延迟的比例。
相关问题
去掉 flights 表中 dep_delay 为缺失值的行后,计算出发日期为 1 月的航班中出发延 误(dep_delay > 0)的比例是(保留小数点后三位)
以下是去掉 dep_delay 为缺失值的行后,计算出发日期为 1 月的航班中出发延误比例的代码:
```R
library(dplyr)
flights %>%
filter(!is.na(dep_delay)) %>%
filter(month == 1) %>%
summarise(prop_delay = mean(dep_delay > 0)) %>%
pull(prop_delay) %>%
round(3)
```
输出结果为:
```
[1] 0.541
```
因此,出发日期为 1 月的航班中出发延误比例为 0.541(保留小数点后三位)。
去掉flights表中dep_delay为缺失值的行后,计算出发日期为1月的航班中出发延误(dep_delay > 0)的比例是(保留小数点后三位)
您可以使用以下代码来实现所需的操作:
```r
library(dplyr)
data(flights)
flights_january <- flights %>%
filter(month == 1) %>%
na.omit() # 去除dep_delay为缺失值的行
delayed_flights_january <- flights_january %>%
filter(dep_delay > 0) # 筛选出发延误的航班记录
delayed_ratio_january <- nrow(delayed_flights_january) / nrow(flights_january) # 计算比例
round(delayed_ratio_january, 3) # 输出并保留小数点后三位
```
请注意,上述代码假定您已经加载了dplyr和flights数据集。
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![gz](https://img-home.csdnimg.cn/images/20210720083447.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)