r - 您如何创建 50 个州的 map (而不仅仅是低 48 个)

Question

你如何在 R 中制作 50 个州的 map ？

似乎人们创建的所有示例 map 都只是较低的 48

Answer 1

有很多方法可以做到这一点。就我个人而言，我发现 Google 拥有最具吸引力的 map 。我推荐 ggmap , googleVis ，和/或 RgoogleMaps .

例如:

require(googleVis)

G4 <- gvisGeoChart(CityPopularity, locationvar='City', colorvar='Popularity',
                   options=list(region='US', height=350, 
                                displayMode='markers',
                                colorAxis="{values:[200,400,600,800],
                                 colors:[\'red', \'pink\', \'orange',\'green']}")
) 
plot(G4)

产生这个:



另一种方法会给您带来比 maps 更具吸引力的结果是遵循 this tutorial的方法它展示了如何将自定义 map 从 Inkscape(或等效的 Adob​​e Illustrator)导入 R 进行绘图。

你最终会得到这样的结果:



这是使用 choroplethr 的方法和 ggplot2 :

library(choroplethr)
library(ggplot2)
library(devtools)
install_github('arilamstein/choroplethrZip@v1.3.0')
library(choroplethrZip)

data(df_zip_demographics)
df_zip_demographics$value = df_zip_demographics$percent_asian

zip_map = ZipChoropleth$new(df_zip_demographics)
zip_map$ggplot_polygon = geom_polygon(aes(fill = value),
                                      color = NA)
zip_map$set_zoom_zip(state_zoom = NULL,
                     county_zoom = NULL,
                     msa_zoom = NULL,
                     zip_zoom = NULL)
zip_map$title = "50 State Map for StackOverflow"
zip_map$legend = "Asians"
zip_map$set_num_colors(4)
choro = zip_map$render()
choro

data(df_pop_state)
outline = StateChoropleth$new(df_pop_state)
outline = outline$render_state_outline(tolower(state.name))

choro_with_outline = choro + outline
choro_with_outline

这给了你: