r - ggplot2 中的 geom_map 边框

Question

我正在尝试使用 ggplot2 中的 geom_map 生成分区统计图。我想用黑色或其他颜色勾勒出各个区域，以区分渐变上颜色相似的区域。使用以下代码，我尝试设置颜色来勾勒出这些区域。该代码生成 map ，但没有边框。当我将颜色命令移至美学中时，它会产生预期的带有图例的“粉红色”边框。有什么想法为什么设置颜色不会产生边框，但映射会产生边框？我在 ggplot2 Google Group 上看到了类似的讨论。

ggplot(subset(df, as.character(variable) == "value"), aes(map_id = id)) +
  geom_map(aes(fill = pct), colour = "black", map = ggmap) +
  expand_limits(x = ggmap$long, y = ggmap$lat) +
  scale_fill_gradient(low = "antiquewhite", high = "darkred") +
  opts(title = "Title", panel.background = theme_rect(fill = "grey90"))

谢谢

Answer 1

您需要使用geom_polygon 添加多边形边界。在下面的代码中，您需要使用数据集 (data) 以及纬度和经度(x 和 y )每个多边形的值。我通常从 maps 包获取数据，不确定这是否是您所做的。

ggplot(subset(df, as.character(variable) == "value"), aes(map_id = id)) +
  geom_map(aes(fill = pct), colour = "black", map = ggmap) +
  geom_polygon(data=XXXX, aes(x=XXXX, y=XXXX), colour='black', fill=NA) +
  expand_limits(x = ggmap$long, y = ggmap$lat) +
  scale_fill_gradient(low = "antiquewhite", high = "darkred") +
  opts(title = "Title", panel.background = theme_rect(fill = "grey90"))