2015-12-14 500 views
3

我最近发现了r package“leaflet”,发现了一个很棒的博客,里面有一些创建交互式地图的基本说明(在这里找到)http://mhermans.net/hiking-gpx-r-leaflet.html如何在R package leaflet中添加比例尺?

我还没有成功地在地图上添加比例尺。也就是说,我想添加一个图形功能,在您放大和缩小地图时缩放距离(例如,地图底部的代表1公里的酒吧)。单张网站(在此处找到)http://leafletjs.com/reference.html#control-scale-l.control.scale讨论了此功能:L.control,scale()。

有谁知道如何添加比例尺?

这是我的地图到目前为止的代码(“添加比例尺”不工作):

# A map of Track data 
Mymap <- leaflet() %>% addTiles() %>% 
    addPolylines(data=Dofu1) %>% 
    addPolylines(data=Zak1) %>% 
    addProviderTiles("Esri.WorldImagery") 

# Add a legend 
    Mymap %>% 
    addLegend(position = 'topright', 
       colors = "blue", 
       labels = 'Buruku Tracks', opacity = 0.5, 
       title = '') 

    # Add a Scale Bar 
    Mymap %>% 
    addControl(Mymap, "Scale", 
      position = c("topright"), 
      layerID = NULL, 
      className = "Scale", 
      data - getMapData(Mymap)) 

回答

5

这个功能已经被添加到小叶的开发包的版本。见Add support for scale bar。另外,addControl的第二个参数需要html作为从Shiny或htmltools标记生成的字符串或html。最后,我认为你在addControl中有一个错字:data - getMapData(Mymap)应该是data = getMapData(Mymap)