1

使用我从 StackOverflow 获得的一些代码，我想对地图进行着色，但也有县名。

在一个完美的世界中，我希望能够只显示顶部和底部的 5 个县名，作为额外的转折，我希望红色的高名和黑色的低名。

但是我在获取任何名称或找到要添加的其他选项的任何示例时遇到了很多麻烦。

我是 R 新手，不确定这是否是正确的方法。

另外，您是否会推荐一种可视化方式来按县显示 3 个变量（收入、出生率、人口）？

谢谢

library(noncensus)  
library(zipcode)    
library(choroplethr)
library(ggplot2)  
library(sp)
library(maps)

#this guy is pretty but needs county names
data(df_pop_county)
county_choropleth(df_pop_county,
                  title="US 2012 County Population Estimates",
                  legend="Population",
                  buckets=1,
                  zoom=c("new york"))

#this guy has county names
getLabelPoint <- # Returns a county-named list of label points
  function(county) {Polygon(county[c('long', 'lat')])@labpt}
df <- map_data('county', 'new york')                 # NY region county data
centroids <- by(df, df$subregion, getLabelPoint)     # Returns list
centroids <- do.call("rbind.data.frame", centroids)  # Convert to Data Frame
names(centroids) <- c('long', 'lat')                 # Appropriate Header
map('county', 'new york')
text(centroids$long, centroids$lat, rownames(centroids), offset=0, cex=0.4)
4

0 回答 0