R 如何使用ggplot按几何点显示比例？

最近我使用R绘制了一些地图，我使用了

nycflights13:：flights

和

nycflights13:：Airport

我试着先按目的地找出平均延误时间

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

delay1 <- flights %>% 
  group_by(dest) %>% 
  summarise(delay = dep_delay %>% mean(na.rm = TRUE))  

然而，结果表明，延迟中只有一种颜色。但据推测，地图上会显示一定范围的延迟。

---

我是怎么做到的？？非常感谢

您也可以使用

fill

选项和

shape=21

创建色阶，然后使用

scale\u fill\u gradient2（）进行修改。@markus的伟大建议也是有效的。这是您的另一个选择：

#Code
airports2 %>%
  ggplot(aes(lon, lat, fill=delay)) +
  borders("state") +
  geom_point(shape=21) +
  coord_quickmap()+
  scale_fill_gradient2(low = 'red',mid = 'purple',high = 'blue')

输出：

您是否尝试过使用
col=delay
？如果您引用“delay”，它会将其解释为字符串而不是列变量
airports2 %>%
  ggplot(aes(lon, lat, col="delay")) +
  borders("state") +
  geom_point() +
  coord_quickmap()

#Code
airports2 %>%
  ggplot(aes(lon, lat, fill=delay)) +
  borders("state") +
  geom_point(shape=21) +
  coord_quickmap()+
  scale_fill_gradient2(low = 'red',mid = 'purple',high = 'blue')