Question

我是R的新手，需要帮助。我需要制作一个邮政编码地图。数据帧如下 -

Zipcode   plpn
31139     138
85941     58
85349     104.01
87305     101
86515     98.08
79849     96.98

我想在美国地图上绘制此图并通过plpn变量应用颜色。

     plpn   color
     0-50   light blue
   50-100   blue 
     100+   dark blue

请你告诉我在R中最简单的方法吗？

注意 - 我想通过这个网页，但代码对我来说似乎有点复杂。（https://www.r-bloggers.com/my-first-r-package-zipcode/）

我尝试了以下内容 -

    library(maps)
    library(zipcode)
    data(zipcode)

    setwd("C:/Users/rkpanda/Documents/TEMP/Feb2017/")
    mktng <- read.csv(file="zipcode_mrktng.csv", header=T, sep = ",")
    mktng2 <- merge(mktng, zipcode, by.x='postal_cd', by.y = 'zip')
    mktng3 <- subset(mktng2, plpn_by_credit > 50)
    map("state")
    points( mktng3$longitude, mktng3$latitude, pch= 20, cex= 0.5,     col="blue")

有没有办法将标签（与邮政编码相关的城市名称）应用到地图上出现的点？

Answer 1

您可以从此处获取shapefile：

https://www.census.gov/geo/maps-data/data/cbf/cbf_zcta.html

这很慢，因为它正在策划整个美国，但它有效：

{
  "rules": {
    "usernames": {
      ".read": "auth != null",
      ".write": "newData.val() === auth.uid && !data.exists()"
    }
  }
}

最终结果图片在邮政编码级别不是很好。邮政编码的分辨率太小。

要添加您自己的数据，只需左键加入ZCTA5CE10字段上的shpDF。

在R中创建Zipcode US地图并在地图上添加Legend

1 个答案: