Question

我想在R中构建一个带有时间光标的动画地图。

我有时间序列（xts），我想在地图上代表。

library(xts)
library(leaflet)
date<-seq(as.POSIXct("2015-01-01"), as.POSIXct("2015-01-10"), by=86400)
a<-xts(1:10,order.by=date)
b<-xts(5:14,order.by=date)
df = data.frame(Lat = 1:10, Long = rnorm(10),Id=letters[1:10])
leaflet() %>% addCircles(data = df,popup =df$Id)
#popup =paste(df$Id, xts value)  time cursor on the map

有没有办法用传单包来做到这一点？我还没试过rmaps包。

由于

编辑：https://github.com/skeate/Leaflet.timeline

Answer 1

有一个简单的例子

库：

PostThreadMessage

数据：

library(shiny)
library(xts)
library(leaflet)
library(dplyr)

shinyapp：

date<-seq(as.Date("2015-01-01"), as.Date("2015-01-10"), by="day")
a<-xts(1:10,order.by=date)
df = data.frame(Lat = rnorm(1)+10, Long = rnorm(1),Id=a)

data_a<-data.frame(a)
data_a1<-data_a %>%  
  mutate("Lat" =as.numeric(df[1,1]),"Long"=as.numeric(df[2,1]),"Date"=rownames(data_a))

Answer 2

如果在上面的公式中添加以下内容，则可以看到图块

#in data
       tilesURL <- "http://server.arcgisonline.com/ArcGIS/rest/services/Canvas/World_Light_Gray_Base/MapServer/tile/{z}/{y}/{x}"
    
    
     
   #in server replace 
        output$mymap <- renderLeaflet({
            leaflet() %>%
              addTiles(tilesURL)%>%
              addMarkers(data = points(),popup=as.character(points()$a))
          })

R中的动画地图与传单和xts

2 个答案: