r - 绘制带有颜色渐变的 geom_segment 线？ (或者有另一种强调开始与结束的方法吗？)

Question

我有两组纬度和经度变量，用于我的数据框中的大量行 (~100,000)。我正在尝试制作一个连接这两组坐标的图(即，从 latitude1,longitude1 到 latitude2,longitude2 的约 100,000 条线)，使用 geom_segment，与一个非常低的 alpha 使线条透明，因为线条太多了。

我想强调这些线条的起点和终点，我认为最好的方法是从头到尾使用颜色渐变(假设从绿色到红色)。

是否可以绘制带有颜色渐变的 geom_segment 线？如果没有，您是否知道另一种用这么多行来强调开始与结束的方法？

(我意识到它最终可能看起来很乱，因为有太多行，但我怀疑其中许多行都朝着同一个方向..)

这里是一些 5 行的示例数据(但实际上我有 ~100,000，所以它应该在某种程度上具有计算效率):

 example.df <- as.data.frame(matrix(c(1,435500,387500,320000,197000,
                                      2,510500,197500,513000,164000,
                                      3,164500,40500,431000,385000,
                                      4,318500,176500,316000,172000,
                                      5,331500,188500,472000,168000),
                                      nrow=5, ncol=5, byrow = TRUE))
  colnames(example.df) <- c("ID","longitude.1","latitude.1",
                            "longitude.2","latitude.2")

 library(ggforce)
 ggplot(example.df, aes(longitude.1, latitude.1))+
 geom_link(aes(x=longitude.1, y=latitude.1,
               xend=longitude.2, yend=latitude.2, 
               alpha=0.5), col="black")+
 coord_equal()

这会产生以下五行:

我希望这些线在第一个经纬度坐标点处以蓝色开始，在第二个经纬度坐标点处以红色结束。

Answer 1

ggforce 方法似乎是解决您所问问题的最佳方法。您的代码几乎就是您要查找的代码，但我认为您可能忽略了映射中的 colour = stat(index) 语句。我假设 index 是 geom_link() 在后台计算以插入颜色的统计数据。

ggplot(example.df, aes(longitude.1, latitude.1))+
  geom_link(aes(x = longitude.1, y = latitude.1,
                xend = longitude.2, yend = latitude.2, 
                colour = stat(index)), lineend = "round") +
  scale_colour_gradient(low = "red", high = "green") +
  coord_equal()

不过要提醒一句，因为您打算绘制多条线；如果您对 geom_link() 使用 alpha =，您可以清楚地看到线条的分段:

ggplot(example.df, aes(longitude.1, latitude.1))+
  geom_link(aes(x = longitude.1, y = latitude.1,
                xend = longitude.2, yend = latitude.2, 
                colour = stat(index)), lineend = "round", size = 10, alpha = 0.1) +
  scale_colour_gradient(low = "red", high = "green") +
  coord_equal()

或者，您可以使用箭头指示结束位置，如下所示:

ggplot(example.df, aes(longitude.1, latitude.1)) +
  geom_segment(aes(xend = longitude.2, yend = latitude.2),
               arrow = arrow()) +
  coord_equal()

一个潜在的缺点是箭头可能会过分强调非常短的片段。

希望这对您有所帮助!