r - geom_segment()に沿ったggplot2の色のグラデーション

Question

出発地と目的地の座標のセットがあり、その間に線分を描いています。問題は、geom_segment() で提供される矢印の代わりに、色を使用して線の方向を示したいということです。方向を示すために、青が赤に変わるようなもの。

ggplot2 でこれを行う簡単な方法はありますか?

サンプルデータ:

points <- data.frame(long=runif(100,-122.4154,-122.3491))
points$lat <- runif(100,37.5976,37.6425)
points$long2 <- runif(100,-122.4154,-122.3491)
points$lat2 <- runif(100,37.5976,37.6425)

# add distance
library(geosphere)
points$miles <- apply(points, 1, 
  function(x) distHaversine(p1=c(x["long"],x["lat"]),p2=c(x["long2"],x["lat2"]),r=3959))

これまでのところ、線に異なる色を付けることができましたが、開始点と終了点しかなく、その間に点がない場合、同じ線分に 2 つの色を配置し、2 つの間を移行する方法を見つけられませんでした。 :

ggplot(points,aes(x=long,xend=long2,y=lat,yend=lat2,color=miles)) + 
  geom_segment() + 
  scale_color_gradient2(low="red",high="blue",midpoint=median(points$miles))