Построение координат GPS с помощью ggmap

Question

Я пытаюсь создать график координат gps на карте в R, используя ggmap. Вот первые 10 строк набора данных я использую:

 gps[1:10,] 
        X_id  lon    timestamp  lat 
    1 5555bcda65bc7d0f2c8d1a9c -4.018623 2015-05-15T09:31:06.859Z 53.23945 
    2 5555bcdb65bc7d0f2c8d1a9f -4.018623 2015-05-15T09:31:07.371Z 53.23945 
    3 5555bcdb65bc7d0f2c8d1aa2 -4.018623 2015-05-15T09:31:07.868Z 53.23945 
    4 5555bcdc65bc7d0f2c8d1aa5 -4.018623 2015-05-15T09:31:08.364Z 53.23945 
    5 5555bcdc65bc7d0f2c8d1aa8 -4.018623 2015-05-15T09:31:08.860Z 53.23945 
    6 5555bcdd65bc7d0f2c8d1aab -4.018623 2015-05-15T09:31:09.372Z 53.23945 
    7 5555bcdd65bc7d0f2c8d1aad -4.018623 2015-05-15T09:31:09.868Z 53.23945 
    8 5555bcde65bc7d0f2c8d1ab0 -4.018623 2015-05-15T09:31:10.381Z 53.23945 
    9 5555bcde65bc7d0f2c8d1ab3 -4.018623 2015-05-15T09:31:10.862Z 53.23945 
    10 5555bcdf65bc7d0f2c8d1ab6 -4.018623 2015-05-15T09:31:11.373Z 53.23945 

Вот что я закодирован до сих пор:

library(ggmap) 
    mapImageData <- get_googlemap(center = c(lon = median(gps$lon), lat = median(gps$lat)),zoom = 18,size = c(500, 500),maptype = c("satellite"))        
    (ggmap(mapImageData,extent = "device") + geom_point(aes(x = lon,y = lat),data = gps,colour = "red",size = 1,pch = 20)) 

Который дает мне следующую карту:

Что я хотел бы сделать, это создать градиент цвета для точек, которые связаны с переменной «timestamp», так что легче вывести перемещение Направление

Я попытался это с помощью:

colour = timestamp 

Но точки все черное. Эми идеи?

Благодаря

Answer 1

Вы должны преобразовать метку времени в числовое значение первого, а затем использовать scale_color_gradient, чтобы добавить цвет ...

gps <- read.table(textConnection("a X_id lon timestamp lat 
            1 5555bcda65bc7d0f2c8d1a9c -4.018623 2015-05-15T09:31:06.859Z 53.23945 
            2 5555bcdb65bc7d0f2c8d1a9f -4.018735 2015-05-15T09:31:07.371Z 53.23945 
            3 5555bcdb65bc7d0f2c8d1aa2 -4.018847 2015-05-15T09:31:07.868Z 53.23945 
            4 5555bcdc65bc7d0f2c8d1aa5 -4.018959 2015-05-15T09:31:08.364Z 53.23945 
            5 5555bcdc65bc7d0f2c8d1aa8 -4.019061 2015-05-15T09:31:08.860Z 53.23945 
            6 5555bcdd65bc7d0f2c8d1aab -4.019173 2015-05-15T09:31:09.372Z 53.23945 
            7 5555bcdd65bc7d0f2c8d1aad -4.019285 2015-05-15T09:31:09.868Z 53.23945 
            8 5555bcde65bc7d0f2c8d1ab0 -4.019397 2015-05-15T09:31:10.381Z 53.23945 
            9 5555bcde65bc7d0f2c8d1ab3 -4.019409 2015-05-15T09:31:10.862Z 53.23945 
            10 5555bcdf65bc7d0f2c8d1ab6 -4.019511 2015-05-15T09:31:11.373Z 53.23945"), 
        header=T) 
gps$timestamp2 <- as.POSIXct(gsub("T", " ", substring(gps$timestamp, 1, 19))) 
library(ggmap) 
mapImageData <- get_googlemap(center = c(lon = median(gps$lon), 
           lat = median(gps$lat)), zoom = 18, 
           size = c(500, 500), 
           maptype = c("satellite"))        
ggmap(mapImageData,extent = "device") + 
    geom_point(aes(x = lon,y = lat, color=as.integer(timestamp2)), 
      data = gps, size = 1, pch = 20) + 
    scale_color_gradient(low="red", high="blue")