ggplot2 使 geom_tile 中的缺失值不为空答案

【问题标题】：ggplot2 make missing value in geom_tile not blankggplot2 使 geom_tile 中的缺失值不为空
【发布时间】：2011-10-17 21:52:59
【问题描述】：

在 R 的 ggplot2 数据可视化包的 geom_tile() 层中，当单元格不包含数据时，它不会被绘制。例如。 http://docs.ggplot2.org/current/geom_tile.html 并搜索“缺失值”。

我想更改此行为以显示所有图块的最小值。这可能吗？如果可以，怎么办？

附加上下文：当我使用时

stat_density2d(aes(x=x,y=y, fill=..density..), geom="tile", contour=FALSE)

我希望没有密度的区域看起来与密度很小的区域非常相似。就像现在一样，如果说色谱是从蓝色到红色并且背景是白色，那么当图块中没有数据时它是白色的，当图块中有单个数据点时是蓝色的。

向数据添加伪计数似乎是可能的，但我如何提前知道如何分配伪计数？什么时候有分面？

【问题讨论】：

我不完全确定你在寻找什么（一个可重复的例子会有很大帮助），但也许你可以试试+scale_fill_gradient(limits = c(0,...)) 并用合适的最大值替换...？

标签： r ggplot2

【解决方案1】：

如果你的数据是类似网格的数据，如何通过subset()为NA添加另一个geom_tile()？

# Generate data
pp <- function (n, r = 4) {
  x    <- seq(-r*pi, r*pi, len = n)
  df   <- expand.grid(x = x, y = x)
  df$r <- sqrt(df$x^2 + df$y^2)
  df$z <- cos(df$r^2)*exp(-df$r/6)
  df
}
pp20 <- pp(20)[sample(20*20, size = 200),]

df_grid  <- expand.grid(x = unique(pp20$x), y = unique(pp20$x))
df_merge <- merge(pp20, df_grid, by = c("x", "y"), all = TRUE)

# Missing values
ggplot(df_merge, aes(x = x, y = y)) +
  geom_tile(data = subset(df_merge, !is.na(z)), aes(fill = z)) +
  geom_tile(data = subset(df_merge,  is.na(z)), aes(colour = NA),
    linetype = 0, fill = "pink", alpha = 0.5)

【讨论】：

这似乎是一种合理的方法。谢谢！
我尝试了代码，但没有显示 NA 的图例。ggplot2 的作者在这篇文章中也提到了这一点：groups.google.com/forum/#!topic/ggplot2/MbYp5K03X3w 那么你是如何得到那个 NA 的图例的呢？？

【解决方案2】：

这个问题也可以通过 scale_fill_continuous 中的一个选项来解决

scale_fill_continuous(na.value = 'salmon')

在下面编辑：

这仅填充显式（即不适用的值）缺失值。（可能在以前版本的ggplot中工作方式有所不同，我懒得检查）

示例见以下代码：

library(tidyverse)
Data <- expand.grid(x = 1:5,y=1:5) %>%
  mutate(Value = rnorm(25))

Data %>%
  filter(y!=3) %>%
ggplot(aes(x=x,y=y,fill=Value))+
  geom_tile()+
  scale_fill_continuous(na.value = 'salmon')

Data %>%
  mutate(Value=ifelse(1:n() %in% sample(1:n(),22),NA,Value)) %>%
  ggplot(aes(x=x,y=y,fill=Value))+
  geom_tile()+
  scale_fill_continuous(na.value = 'salmon')

一个简单的解决方法是使用完整的函数来明确缺失值。

Data %>%
  filter(1:n() %in% sample(1:n(),22)) %>%
  complete(x,y) %>%
  ggplot(aes(x=x,y=y,fill=Value))+
  geom_tile()+
  scale_fill_continuous(na.value = 'salmon')

在某些情况下，扩展功能可能比完整功能更有用。

【讨论】：

你能发布一个完整的例子吗？我无法让它工作（ggplot2 v3.0.0）

【解决方案3】：

为了后代，这里是与ggplot2 1.9.3 版兼容的正确解决方案

+ theme(panel.background=element_rect(fill="blue", colour="blue")

在joran的回答中，plot.background是整个情节，包括标题和图例等。panel.background是数据出现的区域。
在最新版本的ggplot2中，opts已被theme替换，theme_rect已被element_rect替换。
在指定element_rect时，color是矩形的边界，fill是矩形的内部。

我原来用过，

+ geom_rect(aes(xmin=-Inf, xmax=Inf, ymin=-Inf, ymax=Inf), fill="blue")

但是当在背景上添加geom_raster 而不是geom_tile 并生成pdf 输出时，pdf 查看器很难渲染绘图，使用更多的cpu 周期和内存。

【讨论】：

【解决方案4】：

这个答案可能有点太“可爱”，但一种解决方案是否可以简单地将绘图的背景颜色更改为比例中的最小颜色？例如：

+ opts(plot.background = theme_rect(colour = "blue")

如果您的绘图具有更复杂的结构，并且最终在您不希望发生这种情况的区域使背景变为蓝色，您可以首先绘制一个 geom_rect 图层，该图层仅延伸到您的数据范围.

【讨论】：