使用组和每个区域的订单绘制边界gg_map Rgooglemaps

Question

我正在尝试将自定义边界（dma's）绘制到Google地图中。

library(ggmap)
library(ggplot2)

US <- get_map(location = c(-95.7129,37.0902),zoom = 3)
US_map <- ggmap(US)

然后使用以下带有坐标组和顺序的CSV文件

https://www.dropbox.com/s/3xv192k5401np4r/DMAs%20coordinates%20sample.csv?dl=0

然后我可以用点绘制坐标：

smpl <- read.csv('DMAs coordinates sample.csv')
US_map + geom_point(data=smpl,aes(x=Longitude, y=Latitude),size=0.01)

但我想使用point_order的路径绘制由这些点连接的线，并使用dma_boundary.UniqueID对每组线进行分组我确信有一种方法可以做到这一点。但我找不到正确的方法。

Answer 1

我找到了一种方法，

对geom_path

代表的每个群组使用dma_boundaty.UniqueID

由于数据已按sub_polygon_id和point_order排序，因此我们使用geom_path来使用数据中设置的顺序。然后，

library(ggplot2)
library(data.table)
library(ggmap)

dma_boundaty <- data.table(read.csv('.../path')

    US <- get_map(location = c(-95.7129,37.0902),zoom = 3)
    US_map <- ggmap(US)
    dma_map <- US_map + lapply(0:205,function(i) {
                  geom_path(data=dma_boundary[dma_boundary.UniqueID == i,],aes(x=Longitude, y=Latitude))})