如何在R中的单张图中的线上动画通量?

时间:2019-02-14 12:08:45

标签: r leaflet r-leaflet

如何在R中的小叶贴图中的线上动画通量?

是否可以在R中使用Leaflet-ant-path(https://github.com/rubenspgcavalcante/leaflet-ant-path)?

library(sf)
library(leaflet)

pts <-  matrix(1:10, , 2)
ls1 <-  st_linestring(pts)
leaflet() %>% 
   addTiles() %>% 
   addPolylines(data= ls1)

1 个答案:

答案 0 :(得分:2)

我不确定您的代码显示了什么,但是我可以通过将多个线程绑定在一起来解决。首先,我使用Joe Cheng的gist来确保antPath库已正确加载到浏览器中。要调用antPath,我需要一个CDN,幸运的是,在此封闭的PR

中描述了一个CDN。

最后,我不得不深入研究htmlwidgets中的onRender函数,以正确执行js代码。我在JS代码中将点手动添加为LatLong对象。我敢肯定有一种方法可以直接从R会话传递它们,但这就是我用来完成这项工作的方式。

完整代码:

library(leaflet)
library(htmltools)
library(htmlwidgets)

antPlugin <- htmlDependency(name = "leaflet-ant-path", version = "1.2.1",
                             src = c(href = "http://unpkg.com/leaflet-ant-path@1.2.1/dist/"),
                             script = "leaflet-ant-path.js"
)

registerPlugin <- function(map, plugin) {
  map$dependencies <- c(map$dependencies, list(plugin))
  map
}

leaflet() %>%
  setView(-0.18, 51.50, 14) %>%
  addTiles() %>%
  registerPlugin(antPlugin) %>%
  onRender("function(el, x) {
    polylinePoints = [
            new L.LatLng(51.51032167, -0.187084072),
            new L.LatLng(51.51019814, -0.187030437),
            new L.LatLng(51.51013137, -0.187845822),
            new L.LatLng(51.50457546, -0.185415744),
            new L.LatLng(51.50476244, -0.181875224),
            new L.LatLng(51.50457546, -0.179622177),
            new L.LatLng(51.50409462, -0.175459380),
            new L.LatLng(51.50368057, -0.174365042),
            new L.LatLng(51.50299938, -0.174729820),
            new L.LatLng(51.50213117, -0.174686903),
            new L.LatLng(51.50199760, -0.177412030),
            new L.LatLng(51.50179725, -0.180373197),
            new L.LatLng(51.50143660, -0.180351735),
         ];
    polylineOptions = {color: 'blue', weight: 6, opacity: 0.9};
    L.polyline.antPath(polylinePoints, polylineOptions).addTo(this);
  }")

这不会显示在RStudio小预览窗口中,但展开到完整的浏览器会显示以下内容:

enter image description here