将状态线添加到ZipChoropleth，同时将AK和HI保留为R中的插图 我的目标是：

是基于zipcode数据创建choropleth映射，并显示状态线。我正在使用ChoroplethrZip包

我使用以下代码成功创建了地图，输出为地图A：

q1 <- c(0,1,10,25,100,500, Inf)
df_c <-cut(df,breaks=q1 ,right = FALSE ,labels = c("0","[1,10)","[10,25)","[25,100)","[100,500)",">500"))
df$value <- df_c
cols.blues <- brewer.pal(6,"Blues")
cols <- c("#ffffff",cols.blues[2:6])

choro             = ZipChoropleth$new(df)
choro$ggplot_scale = scale_fill_manual("Cases"
                                   ,values = cols
                                   ,drop=FALSE)
choro$ggplot_polygon = geom_polygon(aes(fill=value), color = NA)
map <- choro$render_nationwide()

我得到的地图显示在地图D中

但是我不能将地图A添加到地图D。我得到了这个错误：不知道如何将o添加到绘图中

我已经研究这两天了，任何帮助都会很好

outline = StateChoropleth$new(df_pop_state)
outline$ggplot_polygon = geom_polygon(aes(fill=NA, size=0.25), alpha=0.0)
outline$show_labels = FALSE
outline$add_state_outline = TRUE
out = outline$render()