在 R 中创建邮政编码地图?
Creating a zipcode map in R?
我想为达拉斯创建一个邮政编码地图。
我有 this shapefile 其中应包含所有邮政编码(街道文件)
我一直在使用this as a resource
下面是我想为邮政编码地图以及我当时正在讨论的某些地区创建和着色的示例
数据不适合制作与您所链接的内容完全相同的内容,但您仍然可以接近。
解压下载的数据后:
library(tidyverse)
library(sf)
dallas_streets <- sf_read('unzipped_folder/')
ggplot(sample_frac(dallas_streets, .05)) + #large file, 5% used for example
geom_sf(aes(color = POSTAL_R)) +
theme(legend.position = 'none')
应该让你到这里:
需要调整调色板,可以添加标签,并连接(或合并)几何图形以使其更接近。
如果您真的要查找达拉斯的邮政编码地图,您应该尝试找到用于该目的的 shapefile。
再近一点:
dallas_streets %>%
sample_frac(.3) %>%
group_by(POSTAL_L) %>%
summarize(geometry = st_convex_hull(st_union(geometry))) %>%
ggplot() +
geom_sf(aes(fill = as.numeric(POSTAL_L))) +
geom_sf_text(aes(label = POSTAL_L)) +
scale_fill_viridis_c(option = "C")
group_by,然后总结一个基于联合凸包的新几何结构,仅用 30% 的数据就接近实际的邮政编码边界。
我想为达拉斯创建一个邮政编码地图。 我有 this shapefile 其中应包含所有邮政编码(街道文件)
我一直在使用this as a resource
下面是我想为邮政编码地图以及我当时正在讨论的某些地区创建和着色的示例
数据不适合制作与您所链接的内容完全相同的内容,但您仍然可以接近。
解压下载的数据后:
library(tidyverse)
library(sf)
dallas_streets <- sf_read('unzipped_folder/')
ggplot(sample_frac(dallas_streets, .05)) + #large file, 5% used for example
geom_sf(aes(color = POSTAL_R)) +
theme(legend.position = 'none')
应该让你到这里:
需要调整调色板,可以添加标签,并连接(或合并)几何图形以使其更接近。
如果您真的要查找达拉斯的邮政编码地图,您应该尝试找到用于该目的的 shapefile。
再近一点:
dallas_streets %>%
sample_frac(.3) %>%
group_by(POSTAL_L) %>%
summarize(geometry = st_convex_hull(st_union(geometry))) %>%
ggplot() +
geom_sf(aes(fill = as.numeric(POSTAL_L))) +
geom_sf_text(aes(label = POSTAL_L)) +
scale_fill_viridis_c(option = "C")
group_by,然后总结一个基于联合凸包的新几何结构,仅用 30% 的数据就接近实际的邮政编码边界。