Question

我有一个像这样的数据集：

OriginLong | OriginLat | DestLong | DestLat

我想从原点到目的地绘制线条，这比我预期的要困难得多。我通过不同的切割过滤数据，因此将有可变数量的行。最初我堆叠了数据集，所以它就像：

Departs <- reactive({

  data <- pipedataout()[,3:4]
  colnames(data) <- c("Latitude","Longitude")
  data$seq <- c(sequence = seq(1, length.out = nrow(data), by=2))
  data2 <- pipedataout()[,7:8]
  colnames(data2) <- c("Latitude","Longitude")
  data2$seq <- c(sequence = seq(2, length.out = nrow(data2), by=2))
  data <- sqldf("SELECT * FROM data
                UNION ALL
                SELECT * FROM data2
                ORDER BY seq")
  print(data)
  data
})

但它从第1行到第2行，第2行到第3行，第3行到第4行等等画了一条线。所以我得到了很多我不想要的行。如何从第1行到第2行，第3行到第4行，第5行到第6行或第1行原点 - ＆gt;中绘制一条线。目的地，第2行起点到目的地等等。我认为这将是一个非常常见的问题，但我没有找到一个好的答案！我尝试循环并单独绘制每一行，但这似乎是一种效率低下的路线。

由于

RShiny传单不想连接折线

0 个答案: