Добавить shapefile Полигоны на Choropleth Map (Choroplethr)

Question

Я хотел бы добавить шейп-файл, содержащий многоугольники, на мою карту choropleth, которую я создал с помощью пакета Choroplethr. choropleth карта была создана с помощью следующего кода:

choro=county_choropleth(Change, title= "WeeklyChange", state_zoom = continental_us,reference_map = F)+ scale_fill_manual(values=c("-3"="red4","-2"="red3","-1"="red1", "0"="snow","1"="greenyellow","2"="green","3"="green3"))

plot(choro)

gold= readShapePoly("Gold") gold_df= fortify(gold) land= ggplot(data= gold_df,aes(x=long, y= lat, group=group))+ geom_polygon(colour="gold3")

plot(gold)

Оба объекта отображаются правильно, однако я не могу сложить золотой участок на choropleth карта. Choropleth and gold map

Заранее благодарен!

Answer 1

Благодаря Ари Ламстейну за то, что он помог мне. Ниже приведен код для добавления полигонов

# Create Choropleth Map 
`choro=county_choropleth(Change, title= "WeeklyChange", 
state_zoom = continental_us,reference_map = F)+ 
scale_fill_manual(values=c("-3"="red4","-2"="red3","-1"="red1", 
"0"="snow","1"="greenyellow","2"="green","3"="green3"))` 

`#Import shapefile polygons 
gold= readShapePoly("Gold")` 

`#Create dataframe for ggplot 
gold_df= fortify(gold)` 

`#Combine Choropleth Map and shapefile dataframe 
choro+geom_polygon(data= gold_df,aes(x=long, y= lat,group=group),fill="gold3")`