使用每个区域的组和顺序绘制边界 gg_map Rgooglemaps

Question

我正在尝试将自定义边界 (dma) 绘制到 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

我找到了方法，

对 dma_boundaty.UniqueID

代表的每个组使用 geom_path

由于数据已经按 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))})

使用每个区域的组和顺序绘制边界 gg_map Rgooglemaps

Draw boundaries using groups and order for each region gg_map Rgooglemaps

google-maps

r

ggplot2

ggmap