R 如何填写美国各州的特定县

好的，我有一张科罗拉多州的地图。我希望能够选择一些县。我的数据给了我县的名称，但我不知道如何把它应用到我的地图上

这是根据我的多边形数据给出的所有县的名称

 Colorado@data[["NAME_2"]]
 [1] "Adams"       "Alamosa"     "Arapahoe"    "Archuleta"   "Baca"       
 [6] "Bent"        "Boulder"     "Broomfield"  "Chaffee"     "Cheyenne"   
[11] "Clear Creek" "Conejos"     "Costilla"    "Crowley"     "Custer"     
[16] "Delta"       "Denver"      "Dolores"     "Douglas"     "Eagle"      
[21] "El Paso"     "Elbert"      "Fremont"     "Garfield"    "Gilpin"     
[26] "Grand"       "Gunnison"    "Hinsdale"    "Huerfano"    "Jackson"    
[31] "Jefferson"   "Kiowa"       "Kit Carson"  "La Plata"    "Lake"       
[36] "Larimer"     "Las Animas"  "Lincoln"     "Logan"       "Mesa"       
[41] "Mineral"     "Moffat"      "Montezuma"   "Montrose"    "Morgan"     
[46] "Otero"       "Ouray"       "Park"        "Phillips"    "Pitkin"     
[51] "Prowers"     "Pueblo"      "Rio Blanco"  "Rio Grande"  "Routt"      
[56] "Saguache"    "San Juan"    "San Miguel"  "Sedgwick"    "Summit"     
[61] "Teller"      "Washington"  "Weld"        "Yuma"       

我想能够选择任何一个县和阴影它的一些颜色

我也有路径在这里获得我的数据。我一直在四处张望，似乎无法把这件事搞清楚。任何帮助都将不胜感激

代码

您可以将数据子集以提取特定县的信息，例如埃尔帕索：

subset(Colorado, Colorado$NAME_2 == "El Paso")

使用子集数据创建填充多边形

# Select county and fill color
county <- "El Paso"
county_fill_color <- "pink"

# overlaying our polygon onto ggmap
gg <- bm + geom_polygon(data = Colorado, aes(y=lat, x=long, group=group), alpha = 0, color = "red" )
gg <- gg + geom_path() + coord_map()

# overlay selected county polygon with fill and alpha parameters
gg + geom_polygon(data = subset(Colorado, Colorado$NAME_2 == county), aes(y=lat, x=long, group=group), alpha = 0.75, fill = county_fill_color)

然后可以将其包装到函数中，例如county和county_fill_color是函数的参数

# Select county and fill color
county <- "El Paso"
county_fill_color <- "pink"

# overlaying our polygon onto ggmap
gg <- bm + geom_polygon(data = Colorado, aes(y=lat, x=long, group=group), alpha = 0, color = "red" )
gg <- gg + geom_path() + coord_map()

# overlay selected county polygon with fill and alpha parameters
gg + geom_polygon(data = subset(Colorado, Colorado$NAME_2 == county), aes(y=lat, x=long, group=group), alpha = 0.75, fill = county_fill_color)