R overlay县（或county_choropleth的其他选项）

Question

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

在一个完美的世界里，我希望能够只显示最高和最低的5个县名，作为一个额外的转折，我喜欢黑色的高名和黑色的低名。 / p>

但我在获取任何名字或找到其他选项的例子方面遇到了足够的麻烦。

我是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)