在R小册子中添加许多polyLines

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")