Я использую пакет choroplethr в R, чтобы построить график показателей подростковой беременности (на тысячу) для каждого округа Нью-Йорка. Этот код берет данные из файла 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.