R覆盖县（或县的othr选项）

使用我从StackOverflow得到的一些代码，我想给地图加上阴影，但也要有县名

在一个完美的世界里，我希望能够只显示排名靠前和靠后的5个县的名称，作为额外的转折点，我希望高名称用红色，低名称用黑色

但是，我很难找到任何名字，或者找到任何其他选项的例子来添加

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

还有，你有没有建议像这样用可视化的方式按县显示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)

库（非加密）
库（zipcode）
图书馆（choroplethr）
图书馆（GG2）
图书馆（sp）
图书馆（地图）
#这家伙很漂亮，但需要县名
数据（df_pop_县）
科洛佩斯县（德福波普县，
title=“美国2012年县人口估计”，
图例=“人口”，
桶=1，
zoom=c（“纽约”））
#这家伙有县名
getLabelPoint请看这里：如果它对您有帮助，请告诉我：。不，该链接将我带到迪拜的公寓出租。对不起，我没有解释为什么我从google groups中的地址栏复制的链接现在重定向到其他地方。但请尝试以下方法：。我曾经在choroplethr论坛上帮助过一个有类似问题的人，我想知道这对你是否有帮助。我以为你只是指出了一个很好的投资机会。：）我想那可能行，不幸的是，我一段时间内不会再谈这个了。