r - ggplot2:geom_point 有时会根据使用的审美删除 NA 值

Question

我正在绘制同一图上相关矩阵的相关系数 r 和样本大小 n(上三角中的 r， n 在下面的三角形中)。通常我对 ggplot2 在绘图之前删除我的 NA 没有问题，但在这种情况下它只是删除 NA 值 some 而我不不知道为什么。我使用的是 ggplot2 的 3.2.1 版。

示例数据框:

library(ggplot2)
library(dplyr)

ex <- data.frame(x1 = c(rep("2010", 3), rep("2011", 3), rep("2012", 3)),
                 x2 = rep(c("2010", "2011", "2012"), 3),
                 r = c(NA, 0.5, 0.2, NA, NA, 0.1, NA, NA, NA),
                 n = c(NA, NA, NA, 25, NA, NA, 70, 50, NA))

当我运行此图时，以尺寸作为美学，NA 会自动从两个几何体中删除:

ex %>%
  ggplot(aes(x1, x2))+
  geom_point(aes(size = r))+
  geom_text(aes(label = n))

但是，当我运行此图时，以颜色作为美学，NA 仅从 geom_text 中移除，而不是从 geom_point 中移除:

ex %>%
  ggplot(aes(x1, x2))+
  geom_point(aes(color = r), size = 6)+
  geom_text(aes(label = n))

这stackoverflow question , 不适用，因为我不想要过滤掉行。我还尝试将 x1、x2 和 r 更改为基于 this 的字符, 但它也没有用

ex %>%
  ggplot(aes(as.character(x1), as.character(x2)))+
  geom_point(aes(color = as.character(r)), size = 6, na.rm = T) +
  geom_text(aes(label = n))

有没有办法让颜色美学忽略 NA？

Answer 1

您可以为色标设置 na.value 值。如果将其设置为 NA，则不会显示缺失的点:

ex %>%
  ggplot(aes(x1, x2))+
  geom_point(aes(color = r), size = 6)+
  geom_text(aes(label = n)) + 
  scale_color_gradient(na.value = NA)