r - 在 R 传单中添加许多折线

Question

有没有办法一次添加我所有的多边形线。按照下面的方式做很慢...

目前，我正在通过一个 for 循环来完成，如下所示:

leafletProxy("mainMap") %>% 
          addPolylines(lng = currentGeoData[i,c("CustLon","SerCenterLon")], 
                       lat = currentGeoData[i,c("CustLat","SerCenterLat")],
                       color = "red")

所以每次我的 lng 变量都是长度为 2 的向量并且我的 lat 变量是相同的。

Answer 1

只要您遍历整个列，就不需要使用 i 进行索引:

leafletProxy("mainMap") %>% 
        addPolylines(lng = currentGeoData[c("CustLon","SerCenterLon")], 
                   lat = currentGeoData[c("CustLat","SerCenterLat")],
                   color = "red")