如何在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

此功能已添加到傳單包的開發版本中。 請參閱添加支持比例尺 。 此外， addControl的第二個參數要求html作為字符串或從Shiny或htmltools標簽生成的html。 最后，我認為你在addControl中有一個拼寫錯誤： data - getMapData(Mymap)應該是data = getMapData(Mymap)

Answer 2

比例尺功能已實現，可以使用'addScaleBar'添加

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