在R中使用传单时如何在addCirculeMarkers（）中指定半径单位

Question

我试图在一个闪亮的应用程序中使用一个用R创建的传单地图来可视化一个货物从起点到目的地。

我想添加一个半径的圆标记，它对应于、odist和ddist变量，这些变量来自一个名为main（）的反应式数据表

下面是一个相关的快照和附带的代码：

output$leaflet1 <- renderLeaflet({
  leaflet() %>%
    addCircleMarkers(data = main(), lng = main()$Olong, lat = main()$Olat, color = 'black', fillColor = coyGreen,
                     radius = main()$odist, opacity = .5) %>% 
    addCircleMarkers(data = main(), lng = main()$Dlong, lat = main()$Dlat, color = 'black', fillColor = coyGreen, 
                     radius = main()$ddist, opacity = .3)
})

Answer 1

如果使用addcircles而不是addcirclemarkers，则圆的半径为常数（以米为单位）。下面是一个使用mapview的可复制示例，该示例使用AddCraileMarkers。在顶部，我们使用addcircles绘制相同的位置

library(mapview)

m <- mapview(breweries91) # uses addCirclemarkers so circle radius changes with zoom

m@map %>% 
  addCircles(data = breweries91, color = "red", radius = 100) # circle radius constant

如果放大，您将看到最初较小的红色圆圈将变大，相对于mapview中使用的标准蓝色圆圈标记