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 添加多边形边框。在下面的代码中你需要填写XXXX每个多边形都有一个数据集 ( 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"))