等值区邮政编码

Question

我正在尝试在弗吉尼亚州的部分地区创建邮政编码的等值线以显示一些公司数据。除了最后一行 aes(fill = growth) 之外，我可以将所有内容正确地获取到运行。在那里，我得到一个错误：

Error: Aesthetics must either be length one, or the same length as the dataProblems:growth

这是我的数据：

A Shapefile of northern Virginia zip codes
A csv 个我感兴趣的邮政编码以及相应的公司数据值。

我的代码：

library(ggplot2)
library(maptools)
library(rgdal)
library(plyr)

#set working directory
setwd("F:/Dropbox/Zip Codes")

#load Shapefile NOVA
Zips <- readOGR(dsn="F:/Dropbox/Zip Codes", layer="NOVA")

#load Company Data of Zip Codes
Company <- read.csv("Data.csv")

#set to data.frame
Company_df <- data.frame(Company)

#create growth vector
growth = Company_df[,'Growth']

#merge growth vector into Zips
Zips$growth = growth

#ggplot
Nmap = ggplot(Zips) +
aes(x = long, y = lat, group=group) +
geom_polygon() +
aes(fill = growth)
Nmap

Answer 1

我组织你的目录结构有点不同。尽管 Internet 上有较旧的代码片段，但您不需要将数据绑定到数据框。但是，您 do 需要 fortify 多边形才能与 ggplot 一起使用。此外，read.csv 会生成一个 data.frame，因此您无需从该调用中重新生成一个。

library(ggplot2)
library(maptools)
library(rgdal)
library(ggthemes)

setwd("~/Development/nova_choro")

zips <- readOGR(dsn="zip_codes/NOVA.shp", layer="NOVA")
company <- read.csv("data.csv")

# this makes the polygons usable to ggplot2
# and by using ZCTA5CE10 as the region id, 
# you can then use that equivalent id field 
# from the actual company data frame for the
# choropleth colors

zips_map <- fortify(zips, region="ZCTA5CE10")

gg <- ggplot()
# draw the base map polygons
gg <- gg + geom_map(data=zips_map, map=zips_map,
                    aes(x=long, y=lat, map_id=id),
                    color="#7f7f7f", fill="white", size=0.25)
# fill in the polygons
gg <- gg + geom_map(data=company, map=zips_map,
                    aes(fill=Growth, map_id=zip_code_area),
                    color="#7f7f7f", size=0.25)
# better color scheme
gg <- gg + scale_fill_distiller(palette="Greens")
# no "slashes" in the legend boxes
gg <- gg + guides(fill=guide_legend(override.aes=list(colour=NA)))
# use an actual projection (there may be a better one for NOVA
gg <- gg + coord_map()
# get rid of map chart junk
gg <- gg + theme_map()
gg

我做了一些检查，VA 使用了修改后的 Lambert Conic Conformal 投影，因此您可以根据需要用 gg <- gg + coord_map("lambert", lat0=38.34427, lat1=39.14084) 替换默认的 Mercator coord_map，这应该与官方的足够接近机构使用。

等值区邮政编码

Choropleth zip code

r

zipcode

choropleth