将NA值的框添加到ggplot图例中以获取连续图

Question

我有一个带有图例渐变的地图,我想为NA值添加一个框.我的问题非常类似于这一个和这一个.我也读过这个话题,但我找不到某个"好"的解决方案或者可能没有？

这是一个可重复的例子:

library(ggplot2)
map <- map_data("world")
map$value <- setNames(sample(-50:50, length(unique(map$region)), TRUE), 
                      unique(map$region))[map$region]
map[map$region == "Russia", "value"] <- NA
ggplot() +
  geom_polygon(data = map,
               aes(long, lat, group = group, fill = value)) +
  scale_fill_gradient2(low = "brown3", mid = "cornsilk1", high = "turquoise4",
                       limits = c(-50, 50),
                       na.value = "black")

所以我想为俄罗斯的NA值添加一个黑盒子.我知道,我可以用数字代替NA,所以它会出现在渐变中,我想,我可以编写如下的解决方法,但所有这些解决方法对我来说似乎不是一个很好的解决方案,我也想避免"无意义"的警告:

ggplot() +
  geom_polygon(data = map,
               aes(long, lat, group = group, fill = value)) +
  scale_fill_gradient2(low = "brown3", mid = "cornsilk1", high = "turquoise4",
                       limits = c(-50, 50),
                       na.value = "black") +
  geom_point(aes(x = -100, y = -50, size = "NA"), shape = NA, colour = "black") +
  guides(size = guide_legend("NA", override.aes = list(shape = 15, size = 10)))
Warning messages:
1: Using size for a discrete variable is not advised. 
2: Removed 1 rows containing missing values (geom_point). 

Answer 1

一种方法是将value变量拆分为离散比例.我这样做了cut().然后,您可以使用离散色标,其中"NA"是不同颜色标签之一.我已经习惯了scale_fill_brewer(),但还有其他方法可以做到这一点.

map$discrete_value = cut(map$value, breaks=seq(from=-50, to=50, length.out=8))

p = ggplot() +
    geom_polygon(data=map, aes(long, lat, group=group, fill=discrete_value)) +
    scale_fill_brewer(palette="RdYlBu", na.value="black") +
    coord_quickmap()

ggsave("map.png", plot=p, width=10, height=5, dpi=150)   

另一种方法

因为原始海报说他们需要保留颜色渐变比例和颜色条样式的图例,所以我发布了另一种可能的解决方案.它有3个组成部分:

1. 我们需要欺骗ggplot绘制成一个单独的color使用规模aes()来映射的东西来color.我使用了映射一列空字符串aes(colour="").
2. 为了确保我们不在每个多边形周围绘制彩色边界,我指定了一个具有单个可能值的手动色标NA.
3. 最后,guides()连同override.aes用于确保新的颜色图例被画成正确的颜色.

p2 = ggplot() +
     geom_polygon(data=map, aes(long, lat, group=group, fill=value, colour="")) +
     scale_fill_gradient2(low="brown3", mid="cornsilk1", high="turquoise4",
                     limits=c(-50, 50), na.value="black") +
     scale_colour_manual(values=NA) +              
     guides(colour=guide_legend("No data", override.aes=list(colour="black")))

ggsave("map2.png", plot=p2, width=10, height=5, dpi=150)