小编ays*_*ina的帖子

我正在尝试在地图上创建Leaflet纬度/经度点之间的线。这是一个示例输入数据：

  segment_id latitude1 longitude1 latitude2 longitude2      len
1          1  48.15387   17.07388  48.15396   17.07387 10.98065
2          1  48.15396   17.07387  48.15404   17.07377 11.31327
3          1  48.15404   17.07377  48.15410   17.07364 11.74550
4          1  48.15410   17.07364  48.15412   17.07349 11.48138
5          1  48.15412   17.07349  48.15412   17.07334 11.63625
6          2  48.15424   17.07307  48.15432   17.07299 10.79304

结果应该是 6 行lat1,lng1-> lat2,lng2。我很难使用addPolylines，它会产生额外的不需要的线条，我不知道为什么。

这就是它应该的样子，没有多余的线堆叠在一起：D

到目前为止，这是我的代码，但它是垃圾：

  drawEdges <- function(x) {
    d <- cbind(x$latitude1,x$latitude2)
    s <- rep(1:nrow(x), each = 2) + (0:1) * nrow(x)
    latitudeOut …