ggplot2 Farbverlauf entlang geom_segment()

Question

Ich habe eine Reihe von Ausgangs- und Zielkoordinaten, und ich zeichne Liniensegmente zwischen ihnen. Die Sache ist, ich möchte die Richtung der Linie mit Farbe anstelle der Pfeile angeben, die mit geom_segment() bereitgestellt werden. Etwas wie Blau, das in Rot übergeht, um die Richtung anzuzeigen.

Gibt es eine einfache Möglichkeit, dies mit ggplot2 zu tun?

Beispieldaten:

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)) 

Bisher habe ich anders farbige Linien der Lage gewesen, aber ich habe keine Möglichkeit zu haben, zwei Farben auf der gleichen Liniensegment und der Übergang zwischen den beiden, gefunden, wenn ich habe nur einen Start- und Endpunkt, ohne Punkte dazwischen:

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)) 

Answer 1

ich konnte dies erreichen, indem eine Reihe von Punkten zwischen den Start- und Endpunkten mit der Punktnummer Interpolation und dann Färbung der Segment mit einem Gradienten basierend auf der Anzahl der Punkte dazwischen:

Beispiel:

# generate data points 
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) 

# function returns a data frame with interpolated points in between start and end point 
interp_points <- function (data) { 

    df <- data.frame(line_id=c(),long=c(),lat=c()) 

    for (i in 1:nrow(data)) { 

    line <- data[i,] 

    # interpolate lats and longs in between the two 
    longseq <- seq(
        as.numeric(line["long"]), 
        as.numeric(line["long2"]), 
        as.numeric((line["long2"] - line["long"])/10) 
       ) 
    latseq <- seq(
        as.numeric(line["lat"]), 
        as.numeric(line["lat2"]), 
        as.numeric(line["lat2"] - line["lat"])/10 
       ) 

    for (j in 1:10) { 
     df <- rbind(df,data.frame(line_id=i,long=longseq[j],lat=latseq[j],seg_num=j)) 
    } 
    } 

    df 
} 

# run data through function 
output <- interp_points(points) 

# plot the output 
ggplot(output,aes(x=long,y=lat,group=line_id,color=seg_num)) + 
    geom_path(alpha=0.4,size=1) + 
    scale_color_gradient(high="red",low="blue") 

Leider, wenn ich reale Daten verwendet wird, hat das Ergebnis nicht so überzeugend aussehen, wie ich in meinem Kopf habe mir vorgestellt!