График пропущенных значений по группам и времени

Question

У меня есть набор данных, который выглядит примерно так:

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, «ID» на оси Y, а посередине должны быть прямоугольники разных цветов (например, серый = отсутствует, синий не отсутствует).

Я пытался использовать library(VIM) matrixplot() или library(naniar) gg_miss_fct(), которые производят визуальные эффекты, аналогичные тому, который я ищу. однако: 1) мне нужно создать график только для одной переменной, а не для всего набора данных (в то время как gg_miss_fct и matrixplot отображают отсутствующие значения для всех переменных, 2) я бы хотел, чтобы отсутствующие значения отображались упорядоченными по истечении временикритерии.

Заранее благодарю за помощь

Answer 1

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