更改GGR中ggplot中县的边界颜色

我想使用一个给定的数据帧和一个列 调用

frequency

绘制美国的县， 并使用“频率”列为县着色。 为此，我要：

data(county.fips) # Load the county.fips dataset for plotting
cnty <- map_data("county") # Load the county data from the maps package
cnty2 <- cnty %>%
         mutate(polyname = paste(region, subregion, sep=",")) %>%
         left_join(county.fips, by="polyname")

head(cnty2)

       long        lat group order  region subregion        polyname fips
-86.5051651 32.3491974     1     1 alabama   autauga alabama,autauga 1001
-86.5338211 32.3549271     1     2 alabama   autauga alabama,autauga 1001
-86.5452728 32.3663864     1     3 alabama   autauga alabama,autauga 1001
-86.5567322 32.3778458     1     4 alabama   autauga alabama,autauga 1001
-86.5796585 32.3835716     1     5 alabama   autauga alabama,autauga 1001
-86.5911102 32.3778458     1     6 alabama   autauga alabama,autauga 1001

如何通过fips列更改两个县边界的颜色

假设我希望与列

query

和

NN

中的fips

53047

和

55121

关联的县 分别为红色和黄色边界

到目前为止，我所做的工作如下：

ggplot(dt, aes(long, lat, group = group)) + 
           geom_polygon(data = county2, fill="lightgrey") +
           geom_polygon(aes(fill = analog_freq), colour = rgb(1, 1, 1, 0.2))  +
           coord_quickmap() + 
           theme(legend.title = element_blank(),
                 axis.text.x = element_blank(),
                 axis.text.y = element_blank(),
                 axis.ticks.x = element_blank(),
                 axis.ticks.y = element_blank(),
                 axis.title.x = element_blank(),
                 axis.title.y = element_blank()) + 
           ggtitle(title_p)

---

有什么建议吗？

对于这类绘图，我喜欢

缩放*\u identity（）

。看看这个例子是否对你有所帮助

状态%
按地区划分的组别%>%
过滤器（最小（长）<-100）%>%
解组（）%>%
#指定要使用的颜色+线条粗细
变异(
outline=情况(
地区==“爱达荷州”~“黄色”，
地区==“亚利桑那州”~“红色”，
真~“白”），
大小=ifelse（轮廓=“白色”，0.5,3）
)
ggplot（状态、aes（长、横向、组=组））+
几何多边形（aes（颜色=轮廓，大小=大小））+
比例\颜色\标识（）+
比例大小标识（）

---

我发现很难理解你的问题：你所说的“与fips 53047和55121相关联的县，从

query

和

NN

列分别有红色和黄色边界”是什么意思？你介意换个说法吗？另一个问题：你为什么不加入

dt

和

cnty2

？看起来有很多重复数据，只有一个表应该可以使绘图更容易操作。

ggplot(dt, aes(long, lat, group = group)) + 
           geom_polygon(data = county2, fill="lightgrey") +
           geom_polygon(aes(fill = analog_freq), colour = rgb(1, 1, 1, 0.2))  +
           coord_quickmap() + 
           theme(legend.title = element_blank(),
                 axis.text.x = element_blank(),
                 axis.text.y = element_blank(),
                 axis.ticks.x = element_blank(),
                 axis.ticks.y = element_blank(),
                 axis.title.x = element_blank(),
                 axis.title.y = element_blank()) + 
           ggtitle(title_p)