按组和时间绘制缺失值答案

【问题标题】：Plot missing values by group and time按组和时间绘制缺失值
【发布时间】：2019-09-30 18:02:01
【问题描述】：

我有一个如下所示的数据集：

df <- data.frame("id" = c("Alpha", "Alpha", "Alpha","Alpha","Beta","Beta","Beta","Beta", "Gamma", "Gamma", "Gamma", "Gamma"), 
          "Year" = c(1970,1971,1972,1973,1970,1971,1972,1973,1970,1971,1972,1973), 
                 "Val" = c(2,NA,NA,5,NA,5,NA,5,1,3,4,NA))

我想展示我的数据的面板结构。理想情况下，我想创建一个图，显示按年份排序的每个主题的缺失值。理想情况下，绘图将在 x 轴上有“年份”，在 y 轴上有“id”，中间应该有不同颜色的矩形（例如，灰色=缺失，蓝色不缺失）。

我尝试使用 library(VIM) matrixplot() 或 library(naniar) gg_miss_fct() 来产生与我正在寻找的相似的视觉效果。但是：1）我只需要为一个变量而不是整个数据集生成图（而gg_miss_fct和matrixplot为所有变量绘制缺失值，2）我希望缺失值在时间之后显示为有序标准。

提前感谢您的帮助

【问题讨论】：

标签： r ggplot2 plot missing-data naniar

【解决方案1】：

ggplot(df, aes(Year, id, fill = is.na(Val))) +
    geom_tile(col = "black") +
    coord_equal()

【讨论】：

只是有一个后续问题。因为我有比时间点更多的组，所以图像“高”，这意味着它们比 x 轴更长。你知道我怎样才能对图像施加不同的尺寸吗？