在R中创建邮政编码映射？

Question

我想为达拉斯创建一个邮政编码地图。我有this shapefile，其中应包含所有邮政编码（街道文件）

我一直在使用this as a resource

下面是我要创建的示例，并为我当时正在讨论的某些区域为邮政编码映射上色

Answer 1

数据对于制作与链接的内容完全一样的东西并不理想，但是您仍然可以接近。

解压下载的数据后：

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％的数据即可接近实际的邮政编码边界。