R 按组和时间打印缺少的值

我有一个类似以下内容的数据集：

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))

---

df有一个后续问题。因为我有比时间点更多的组，所以图像是“高的”，这意味着它们比x轴更长。你知道我如何给图片加上不同的尺寸吗？我有一个问题。因为我有比时间点更多的组，所以图像是“高的”，这意味着它们比x轴更长。你知道我如何给图像加上不同的尺寸吗？
ggplot(df, aes(Year, id, fill = is.na(Val))) +
    geom_tile(col = "black") +
    coord_equal()