我最近发现了 r 包“leaflet”,并发现了一个很棒的博客,其中包含一些创建交互式 map 的基本说明(在此处找到)http://mhermans.net/hiking-gpx-r-leaflet.html 。
但是,我还没有成功地在 map 上添加比例尺。也就是说,我想添加一个图形功能,可以在放大和缩小 map 时缩放距离(例如 map 底部代表 1 公里的条形)。传单网站(此处找到)http://leafletjs.com/reference.html#control-scale-l.control.scale讨论此功能:L.control,scale()。
有人知道如何添加比例尺吗?
这是迄今为止我的 map 的代码(“添加比例尺”不起作用):
# 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))
最佳答案
该功能已添加到leaflet包的开发版本中。请参阅Add support for scale bar 。另外,addControl
的第二个参数期望 html 作为字符串或从 Shiny 或 htmltools 标记生成的 html。最后,我认为您在 addControl 中有一个拼写错误: data - getMapData(Mymap)
应该是 data = getMapData(Mymap)
关于r - 如何在R包传单中添加比例尺?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/34273487/