用r语言计算每架飞机在第一次延误超过 1 小时前的飞行次数
时间: 2024-05-10 17:20:14 浏览: 25
由于没有提供数据集,以下是一个示例代码,假设有一个数据框df,其中包含每架飞机的航班信息,包括出发时间、到达时间和延误时间:
```
# 生成示例数据
set.seed(123)
df <- data.frame(plane = rep(1:5, each = 10),
departure_time = as.POSIXct("2021-01-01 08:00:00") +
runif(50, 0, 60*60*6),
arrival_time = NA,
delay = rnorm(50, mean = 30, sd = 10))
# 计算到达时间
df$arrival_time <- df$departure_time + df$delay
# 计算每架飞机第一次延误超过1小时前的飞行次数
library(dplyr)
df %>%
group_by(plane) %>%
arrange(departure_time) %>%
mutate(cum_delay = cumsum(delay)) %>%
filter(cum_delay <= 60*60) %>%
summarise(flight_count = n())
```
解释:
- 首先,使用`dplyr`库进行数据处理
- `group_by(plane)`将数据按照飞机编号分组
- `arrange(departure_time)`按照出发时间排序,确保计算的是每架飞机的第一次延误超过1小时前的飞行次数
- `mutate(cum_delay = cumsum(delay))`计算延误时间的累计和
- `filter(cum_delay <= 60*60)`筛选出累计延误时间不超过1小时的航班
- `summarise(flight_count = n())`计算满足条件的航班数量,即第一次延误超过1小时前的飞行次数
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![](https://img-home.csdnimg.cn/images/20210720083646.png)
![-](https://csdnimg.cn/download_wenku/file_type_lunwen.png)
![-](https://csdnimg.cn/download_wenku/file_type_lunwen.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)
![](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)