我正在使用 R 中的 choroplethr 包来绘制纽约每个县的青少年怀孕率(每千人)。此代码从 Excel 文件中获取数据,提取县 FIPS 和青少年怀孕率,并将数据绘制在纽约州的县地图上:
NYTeenPreg <- read.csv("file.csv", stringsAsFactors=FALSE)
county <- data.frame(region= NYTeenPreg$FIPS, value=NYTeenPreg$Teen.Birth.Rate)
county_choropleth(county, "New York Teen Pregnancy Rates by County", state_zoom= "new york") + scale_fill_brewer("Teen Birth Rate \n (per 1000)", type = "seq", palette="YlOrBr")
地图本身看起来很棒。但是有没有办法专门标记其中一个县的数据?有没有办法专门在那个县周围设置黑色边界?例如,假设我要显示伊利县的信息,该县的 FIPS 代码为 36029,青少年出生率为 25。