感谢您使用choroplethr
,很抱歉 的弃用给zip_map
您带来了问题。我已将所有与 ZIP 相关的功能移动到一个名为choroplethrZip的单独打包中。
旧版本的 choroplethr 将 ZIP 呈现为散点图,而不是 choropleth。将它们渲染为适当的 choropleths 需要一个对于 CRAN (~60MB) 来说太大的地图,这就是它只能通过 github 获得的原因。
我在上面链接到的 github 页面有 3 个小插曲。基本上,该功能zip_choropleth
应该完全按照您的意愿行事,并且像所有其他choroplethr
功能一样工作。您想使用state_zoom
放大东海岸各州:
# use the devtools package from CRAN to install choroplethrZip from github
install.packages("devtools")
library(devtools)
install_github('arilamstein/choroplethrZip@v1.3.0')
library(choroplethrZip)
data(df_pop_zip)
# ec = east coast
ec_states = c("maine", "new hampshire", "massachusetts", "rhode island", "connecticut",
"new york", "new jersey", "delaware", "maryland",
"virginia", "north carolina", "south carolina", "georgia", "florida",
"pennsylvania", "district of columbia", "vermont", "west virginia")
zip_choropleth(df_pop_zip,
state_zoom = ec_states,
title = "2012 ZCTA Population Estimates",
legend = "Population") + coord_map()
生成的地图本质上是不可读的,因为拉链太小了,你只能看到边界。如果要删除边框,请尝试以下操作:
choro = choroplethrZip::ZipChoropleth$new(df_pop_zip)
choro$prepare_map()
data(zip.regions)
choro$legend = "Population"
ec_zips = zip.regions[zip.regions$state.name %in% ec_states, "region"]
ec_df = choro$choropleth.df[choro$choropleth.df$region %in% ec_zips, ]
ec_plot = choro$render_helper(ec_df, "", choro$theme_clean()) +
ggtitle("2012 ZCTA Population Estimates")
ec_plot + coord_map()
将来,我可能会添加一个选项,以便更轻松地渲染无边界的地图。但就目前(1.3.0 版)而言,这是我能看到的最简单的方法,基本上是我在后台渲染国家邮政编码地图的工作,这些地图本身是无边界渲染的。
请注意,这coord_map
只是强制墨卡托投影。