阴谋色彩图与邮政编码R或蟒蛇

https://stackoverflow.com/questions/1441717

10-07-2019
|

题

我有一些我们的人口和firmographic数据。
我会喜欢的情节邮政编码的区域，在一个国家或一个较小的地区(例如城市)。每个区将是通过附加说明的颜色和/或文具体到该区域。输出将类似于 http://maps.huge.info/ 但a)附加说明的文本；b)pdf格式的输出；c)编写脚本，在R或蟒蛇。

是否有任何包装和代码，允许我这样做吗？

解决方案

我假设你想要静态地图。

_{（来源： eduardoleoni.com ）}

1）获取 zip 边界的形状文件和< census.gov上的href =“http://www.census.gov/geo/www/cob/st2000.html"rel =”nofollow noreferrer“>州边界：

2）使用我在 SO问题

例如（假设您在map子目录中有maryland shapefile）：

library(maptools)
##substitute your shapefiles here
state.map <- readShapeSpatial("maps/st24_d00.shp")
zip.map <- readShapeSpatial("maps/zt24_d00.shp")
## this is the variable we will be plotting
zip.map@data$noise <- rnorm(nrow(zip.map@data))
## put the lab point x y locations of the zip codes in the data frame for easy retrieval
labelpos <- data.frame(do.call(rbind, lapply(zip.map@polygons, function(x) x@labpt)))
names(labelpos) <- c("x","y")                        
zip.map@data <- data.frame(zip.map@data, labelpos)
## plot it
png(file="map.png")
## plot colors
plot.heat(zip.map,state.map,z="noise",breaks=c(-Inf,-2,-1,0,1,2,Inf))
## plot text
with(zip.map@data[sample(1:nrow(zip.map@data), 10),] , text(x,y,NAME))
dev.off()

其他提示

有很多方法可以做到这R(见的空间图);许多这些取决于"地图"软件包.

看看这个很酷的例的美国2004年的选举.它结束了寻找这样的：
这是一个略微的丑陋的例子的一个模型使用"地图"软件包与"格".
安德鲁*格尔曼做了一些非常好的图像这样。参见，例如，这篇博客上红国/国蓝色和这跟踪后.

这是一个非常简单的例子使用"允许你搜索"包, ，其中显示的地图逮捕状态为逮捕行动，每100,000谋杀：

require(gmaps)
data(USArrests)
attach(USArrests)
grid.newpage()
grid.frame(name="map")
grid.pack("map",USALevelPlot(states=rownames(USArrests),levels=Murder,col.fun=reds),height=unit(1,'null'))
grid.pack("map",gradientLegendGrob(at=quantile(Murder),col.fun=reds),side="bottom",height=unit(.2,'npc'))
detach(USArrests)