如何在 r 中以某个缩放级别显示标记？

Posted 2023-03-28

【中文标题】如何在 r 中以某个缩放级别显示标记？

【英文标题】：How do I have markers appear at a certain zoom level in level in r?

【发布时间】：2019-11-26 14:26:00

【问题描述】：

我正在尝试从mrt 数据集中获取这组标记以显示在某个缩放级别。我是 r 传单的新手，想对此提出一些建议。 我尝试使用if statement，它应该让标记出现在某个缩放级别。但它不起作用。

这是mrt 数据的示例

 stn_code   mrt_station      lat      lon
1      NS1   Jurong East 1.333131 103.7421
2      NS2   Bukit Batok 1.349064 103.7496
3      NS3  Bukit Gombak 1.359037 103.7518
4      NS4 Choa Chu Kang 1.385385 103.7443
5      NS5       Yew Tee 1.397329 103.7475
6      NS7        Kranji 1.425227 103.7620

这是渲染传单地图的代码部分。

 output$mymap <- renderLeaflet(
        leaflet(data=df()) %>% 
            addTiles() %>% 
            addPolygons(data=adm, weight = 3, fillColor = "white", popup=popup)%>%
            addMarkers(clusterOptions = markerClusterOptions(),
                       label = paste(df()$address,',',df()$town))%>%
            if (input$map_zoom>6)
                addMarkers(data=mrt,lat = ~lat,lng = ~lon,label=mrt$mrt_station,icon = mrticon)

            

    )

谢谢！

【问题讨论】：

请使用dput()***.com/questions/5963269/…添加一些数据

您的代码看起来实际上可以工作，但无法重现。这应该有帮助：这应该有帮助。 ***.com/questions/56817268/… 只需将其调整为标记即可。

【参考方案1】：

仅从对您的代码的高级审查来看，这就是您可能需要的，或者至少为您指明了正确的方向。如需更多帮助您必须提供最低工作示例应用程序。 -

output$mymap <- renderLeaflet(
  leaflet(data=df()) %>% 
    addTiles() %>% 
    addPolygons(data=adm, weight = 3, fillColor = "white", popup=popup)%>%
    addMarkers(clusterOptions = markerClusterOptions(),
               label = paste(df()$address,',',df()$town))
)

observe(
    if(input$mymap_zoom > 6) 
      leafletProxy("mymap", data = mrt) %>% 
        addMarkers(
          lat = ~lat,
          lng = ~lon,
          label=mrt$mrt_station,
          icon = mrticon,
          layerID = "some_markers"
        )
     else 
      leafletProxy("mymap") %>% 
        clearMarkers("some_markers")
    
)