Question

我有一个数据集，其中有17854个不同级别的zipcodes遍布美国。 R中是否有任何函数或使用哪种方法可以减少级别数？我需要将它减少到不到500个不同的水平。

谢谢，单宝元

Answer 1

   trunc( as.numeric( substr( zipvec, 1,3))/2 )

Answer 2

此数据可能对您有用。它有人口，城市，县，纬度/经度，州，类型等数据。

> url <- "http://www.unitedstateszipcodes.org/zip_code_database.csv"
> tmp <- tempfile()
> download.file(url, tmp)
> zips <- read.csv("zip_code_database.csv")
> unlink(tmp)
> zip.sub <- zips[zips$type == "STANDARD", 
                  c("zip", "state", "latitude", "longitude")]

> zip.sub[sample(1:nrow(zip.sub), 10, FALSE), ]
##         zip state latitude longitude
## 12121 28649    NC    36.33    -81.23
## 4129  11359    NY    40.79    -73.77
## 22577 51026    IA    42.23    -96.09
## 40251 95480    CA    38.64   -123.37
## 23441 53804    WI    42.89    -90.92
## 40574 96022    CA    40.33   -122.45
## 13589 31548    GA    30.79    -81.66
## 40557 96001    CA    40.60   -122.46
## 40428 95757    CA    38.35   -121.42
## 4531  12205    NY    42.66    -73.79

当我们应用@BondedDust发布的截断函数时，我们得到

> trn <- trunc(as.numeric(substr(zip.sub$zip, 1,3))/2)
> length(unique(trn))
## [1] 442

R中的邮政编码减少

2 个答案: