r语言,按dest分组,考虑arr_delay列,去除dest列中NA值。将dest按字母顺序,由小至大,求每组中arr_delay>0的比例,分三种情况,不去除NA值,去除NA值,NA值的个数只按50%计算。如(1,2,-1,NA,NA)计算结果0.4, 0.666,0.5. 三列的名字为prop1,prop2, prop3. 并计算两者的差值diff1=prop2-prop1 和diff2=prop3-prop1(最后列名字不能错,顺序也不能错,dest,prop1,prop2,prop3,diff1,diff2)
时间: 2023-09-18 22:08:03 浏览: 38
可以使用dplyr包来完成该任务。代码如下:
```R
library(dplyr)
# 读入数据
df <- read.csv("flights.csv")
# 按dest分组,去掉NA值,计算arr_delay>0的比例
prop1 <- df %>%
filter(!is.na(dest)) %>%
group_by(dest) %>%
summarise(prop1 = mean(arr_delay > 0))
# 按dest分组,去掉NA值和arr_delay为负数的值,计算arr_delay>0的比例
prop2 <- df %>%
filter(!is.na(dest) & arr_delay >= 0) %>%
group_by(dest) %>%
summarise(prop2 = mean(arr_delay > 0))
# 按dest分组,去掉NA值和50%的arr_delay为NA的值,计算arr_delay>0的比例
prop3 <- df %>%
group_by(dest) %>%
mutate(na_prop = mean(is.na(arr_delay))) %>%
filter(!is.na(dest) & is.na(arr_delay) | (arr_delay >= 0 & !is.na(arr_delay))) %>%
group_by(dest) %>%
summarise(prop3 = mean(arr_delay > 0, na.rm = TRUE) * (1 - na_prop) + 0.5 * na_prop)
# 合并数据
result <- prop1 %>%
left_join(prop2, by = "dest") %>%
left_join(prop3, by = "dest") %>%
mutate(diff1 = prop2 - prop1, diff2 = prop3 - prop1) %>%
arrange(dest)
# 输出结果
write.csv(result, "result.csv", row.names = FALSE)
```
相关推荐
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![docx](https://img-home.csdnimg.cn/images/20210720083331.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.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)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)