r - ggplot2 在同一张地图上以一种颜色绘制县边界，以另一种颜色绘制州边界

Question

我正在创建带有灰色边框的 choropleth 县地图，并且我还想将州边界包括在黑色中。有谁知道我如何在现有的县地图上添加第二层州地图？

这是我最终使用的数据集和代码：

#load libraries
    library(ggplot2)
    library(ggmap)
    library(maps)
    library(plyr)

#get wif file
wip <- read.csv("wip.csv") 

#get map data for US counties and states
county_map <- map_data("county")
state_map <- map_data("state")

#merge wip and county_map
wip_map <- merge(county_map, wip, by.x=c("region", "subregion"), 
    by.y=c("region","subregion"), all.x=TRUE)

#resort merged data
wip_map <- arrange(wip_map, group, order)

#relpace NA with 0's
wip_map[is.na(wip_map)] <- 0

#generate a disctrete color pallette    
pal <- c("#F7FCF5","#74C476","#41AB5D","#238B45","#006D2C","#00441B")


theme_clean <- function(base_size = 12) {
    require(grid)
    theme_grey(base_size) %+replace%
    theme(
        axis.title      =   element_blank(),
        axis.text       =   element_blank(),
        panel.background    =   element_blank(),
        panel.grid      =   element_blank(),
        axis.ticks.length   =   unit(0,"cm"),
        axis.ticks.margin   =   unit(0,"cm"),
        panel.margin    =   unit(0,"lines"),
        plot.margin     =   unit(c(0,0,0,0),"lines"),
        complete = TRUE
        )
    }

final_map <- ggplot(wip_map, aes(x=long, y=lat, group=group, fill=factor(CATEGORY))) +
            geom_polygon(colour="grey", aes(fill=factor(CATEGORY))) +
            scale_fill_manual(values=pal) +
            expand_limits(x = wip_map$long, y = wip_map$lat) +
            coord_map("polyconic") + 
            labs(fill="Number Per\nCounty") + 
                theme_clean()

 final_map + geom_path( data = state_map , colour = "red")

谢谢！

Answer 1

只需在geom_path您的代码中添加一个...

我使用红色突出边界，但您可以轻松地将其设置为黑色。

    ggplot( wip_map, aes( x = long , y = lat , group=group ) ) +
        geom_polygon( colour = "grey" , aes( fill = factor( CATEGORY ) ) ) +
        scale_fill_manual( values = pal ) +
        expand_limits( x = wip_map$long, y = wip_map$lat ) +
        coord_map( "polyconic" ) + 
        labs(fill="Number Per\nCounty") + 
        theme_clean( ) +
        geom_path( data = state_map , colour = "red")