R の choroplethr パッケージを使用して、ニューヨークの各郡の 10 代の妊娠率 (1000 人あたり) をプロットしています。このコードは、Excel ファイルからデータを取得し、郡の FIPS と 10 代の妊娠率を抽出して、ニューヨーク州の郡の地図にデータをプロットします。
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")
マップ自体は見栄えがします。しかし、特定の郡のデータにラベルを付ける方法はありますか? その1つの郡の周りに特に黒い境界線を置く方法はありますか? たとえば、FIPS コードが 36029 で、10 代の出生率が 25 であるエリー郡の情報を表示するとします。