如何在R包传单中添加比例尺？

Question

我最近发现了r包"leaflet",并发现了一个很棒的博客,其中包含一些创建交互式地图的基本说明(可在此处找到)http://mhermans.net/hiking-gpx-r-leaflet.html.

然而,我没有成功地在地图上添加比例尺.也就是说,我想添加一个图形功能,可以在放大和缩小地图时缩放距离(例如,地图底部代表1km的条形图).传单站点(在此处找到)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))

Answer 1

此功能已添加到传单包的开发版本中.请参阅添加支持比例尺.另外,第二个参数要求addControlhtml作为字符串或从Shiny或htmltools标签生成的html.最后,我认为你在addControl中有一个拼写错误:data - getMapData(Mymap)应该是data = getMapData(Mymap)

Answer 2

比例尺功能已实现，可以通过'addScaleBar'添加

leaflet() %>%
  addTiles() %>%
  addScaleBar()