使用R在US MAP中突出显示邮政编码

Question

在我的数据中，美国邮政编码分为4组：我需要突出显示每组不同颜色的邮政编码。显示这些邮政编码的州名。

我尝试使用zip.plot包的muRL功能。

使用此功能，我能够突出显示我正在为我的项目考虑的所有zipcodes，但不能为这4组使用不同的配色方案。显示州名。

如何找到解决方案？

Answer 1

这可能不是最优雅的解决方案，但我希望能让你朝着正确的方向前进。

首先是一些随机数据：

library(muRL)
data(zips) #This is the file muRL's zip.plot function is calling: I'm gonna use it to extract random zip codes.
zip.data <- data.frame(zip = sample(zips$zip, 10), group = sample(1:4, 10, replace=TRUE))

然后你的情节，每组有不同的颜色：

zip.plot(zip.data, col = zip.data$group)

对于州名，我在这里再次使用zips表：

zips[zips$zip %in% zip.data$zip, ] -> zip_subset
text(zip_subset$lon, zip_subset$lat, labels = zip_subset$state, pos = 4, cex = 0.7, font = 2)

有关绘制邮政编码相关数据的更优雅方法，您应该查看this SO question的答案。