R 按航班目的地计算平均延误

我正在尝试解决一个任务，该任务说：

计算目的地的平均延误，然后加入机场数据帧，以便显示延误的空间分布。以下是绘制美国地图的简单方法

所以我最初的方法是计算平均延迟。我是R新手，到目前为止我还没有读过章节中的循环，所以我不认为我应该使用循环。如果可能的话，我想不用它。在任何其他编程语言中，我都会执行以下操作：

for i= 1 to flights.length
   for j = i to flights.length
         if flight[i].destination == flight[j].destination 
            avarage += (flight[i].arr_delay + flight[j].arr_delay)/i;

如果有帮助，以下是我试图解决的问题的链接：

我有点卡住了。这就是我目前在R中所做的：

library(tidyverse)
library(maps)
library(nycflights13)

fl <- flights %>% 
   filter(!is.na(arr_delay)) %>% 
     group_by(arr_delay)

view(mutate(fl, "avgDelay" = mean(arr_delay)))

库（tidyverse）
图书馆（地图）
图书馆（nycflights13）
佛罗里达州%
过滤器（！is.na（arr_延迟））%>%
分组依据（arr\U延迟）
视图（变化（fl，“平均延迟”=平均值（arr_延迟）））

添加的新列，我称之为“avgDelay”，只是显示了与arr_delay相同的值，所以我肯定是做错了

---

在缺乏可复制数据的情况下，我们非常感谢您的任何帮助，鉴于您的数据看起来不清晰，您的目标也不明确，因此，这里有一个关于您的可能含义的粗略尝试。 你帖子的标题提到“目的地平均延迟”。这表明您至少有两个变量，一个我们可以调用

delay

，一个我们将调用

destination

。以下是一个数据框，其中包含一些示例数据，以供说明：

数据：

set.seed(122)
delay <- sample(0:200, 10)
destination <- sample(LETTERS[1:3], 10, replace = T)
df <- data.frame(delay, destination)
df
   delay destination
1     57           C
2    157           B
3     81           C
4    174           B
5    185           A
6      8           C
7    102           A
8    173           A
9    106           A
10    87           C

---

这是否与您所追求的接近？

帮助ppl通过提供可复制的数据来帮助您我提供的R代码是可复制的。我不确定还要提供什么代码？

tapply(df$delay, df$destination, mean)
     A      B      C 
141.50 165.50  58.25