ggplot2中的geom_map边框 - 重新访问

时间:2012-05-13 15:19:30

标签: r map ggplot2

我和this question中的@Mike有类似的问题。问题是如何在地图中设置区域的轮廓颜色。

建议的解决方案是添加geom_polygon来绘制边框。只要绘制整个区域,这就有效。当尝试限制到子区域时,多边形被奇怪地绘制(可能是因为一些顶点被丢弃)。使用标准geom_map示例:

# Create example data
ids <- factor(c("1.1", "2.1", "1.2", "2.2", "1.3", "2.3"))
values <- data.frame(id = ids, value = c(3, 3.1, 3.1, 3.2, 3.15, 3.5))
positions <- data.frame(
  id = rep(ids, each = 4),
  x = c(2, 1, 1.1, 2.2, 1, 0, 0.3, 1.1, 2.2, 1.1, 1.2, 2.5, 1.1, 0.3, 0.5, 1.2, 2.5, 1.2, 1.3, 2.7, 1.2, 0.5, 0.6, 1.3),
  y = c(-0.5, 0, 1, 0.5, 0, 0.5, 1.5, 1, 0.5, 1, 2.1, 1.7, 1, 1.5, 2.2, 2.1, 1.7, 2.1, 3.2, 2.8, 2.1, 2.2, 3.3, 3.2)
)

# Plot data
ggplot(values, aes(fill = value)) + 
    geom_map(aes(map_id = id), map = positions) +
    geom_polygon(aes(x,y,group=id), fill = NA, colour = 'red', data = positions) +
    expand_limits(positions) +
    ylim(0, 3)

可能的解决方法是在geom_map中使用颜色美学,然后使用scale_colour_manual手动选择轮廓颜色,如下所示:

ggplot(values, aes(fill = value)) + 
    geom_map(aes(map_id = id, colour = 'white'), map = positions) +
    scale_colour_manual(values=c('white')) +
    expand_limits(positions) +
    ylim(0, 3)

所以我有两个问题:

  1. 为什么geom_polygon在限制轴限制时无法正常工作?
  2. 是否有更优雅的解决方案为轮廓着色而不是在这里显示的那个?
  3. 以下是情节输出。非常感谢提前。

    Did not work properly using geom_polygon Works but is not very elegant

1 个答案:

答案 0 :(得分:8)

我相信你为什么不起作用是正确的。在绘图之前使用xlimylim限制数据限制x或y限制。这将最终省略多边形中的一些顶点,因此有些东西不会被绘制。

这就是coord_cartesian的原因,它允许您调整x和y限制,而不用剪切数据。它将“缩放”到正确的区域,而不是剪切然后绘图。

因此,请尝试ylim

而不是+ coord_cartesian(ylim = c(0,3))