如何在“航班”数据集中添加总距离列？DPLYR，Group_by，Ungroup

Question

我正在处理R中“nycflights13”包中的“航班”数据集。

我想添加一个列，它增加了2013年每一家‘运营商’所覆盖的总距离。我得到了每个载波覆盖的总距离，并将值存储在一个新变量中。

我们有16个载波，所以我如何用更多行的数据帧绑定一行16个数字。

carrier <- flights %>%
group_by(carrier) %>%
select(distance) %>%
summarize(TotalDistance = sum(distance)) %>%
arrange(desc(TotalDistance))

如何将这些载波距离之和添加到飞行数据集中的新列中？

谢谢你在这里的时间和努力。]

PS。我试着运行循环，但它不起作用。我对编程很陌生

Answer 1

使用mutate代替：

flights %>%
  group_by(carrier) %>%
  mutate(TotalDistance = sum(distance)) %>%
  ungroup()-> carrier

我们也可以使用left_join。

library(nycflights13)
data("flights")
library(dplyr)

flights %>%
  left_join(flights %>%
              group_by(carrier) %>%
              select(distance) %>%
              summarize(TotalDistance = sum(distance)) %>%
              arrange(desc(TotalDistance)), by='carrier')-> carrier

即使您在最后不使用arrange，这也是可行的。