Как заставить ось Y иметь определенный набор значений для фасета, где значения пусты в GGPlot

Question

У меня есть следующий фрейм данных:

библиотека (tidyverse)

dat <-   structure(list(cluster = structure(c(1L, 1L, 1L, 1L, 10L, 10L, 
  10L, 10L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 5L, 
  5L, 5L, 5L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L, 9L, 
  9L, 9L, 9L), .Label = c("1", "2", "3", "4", "5", "6", "7", "8", 
  "9", "10"), class = "factor"), sample.category = structure(c(2L, 
  4L, 1L, 3L, 2L, 4L, 1L, 3L, 2L, 4L, 1L, 3L, 2L, 4L, 1L, 3L, 2L, 
  4L, 1L, 3L, 2L, 4L, 1L, 3L, 2L, 4L, 1L, 3L, 2L, 4L, 1L, 3L, 2L, 
  4L, 1L, 3L, 2L, 4L, 1L, 3L), .Label = c("YYY_All", "XXX_All", 
  "YYY_Foo+", "XXX_Foo+"), class = "factor"), n = c(0, 0, 
  0, 0, 0, 0, 80, 0, 0, 10, 0, 1, 0, 1, 0, 1, 0, 48, 1, 27, 0, 
  7, 0, 5, 0, 19, 1, 11, 0, 0, 0, 0, 0, 6, 31, 32, 0, 0, 2, 1)), row.names = c(NA, 
  -40L), class = c("tbl_df", "tbl", "data.frame"))


dat

С этим кодом:

ggplot(dat, aes(x = sample.category, y = n)) +
  geom_col() +
  facet_wrap(~cluster, scales = "free") +
  theme_bw() +
  theme(axis.text.x = element_text(angle = 60, hjust = 1, size = 10)) +
  ylab("") +
  xlab("")

Я могу сделать эту цифру:

Как указано на этом рисунке, как я могу заставить ось Y иметь определенный набор значений для фасета, где значения пусты?

В этом случае набор значений для оси Y: c(0, 2.5, 5.0, 7.5, 10)

Answer 1

Вы можете использовать некоторые фиктивные данные в сочетании с geom_blank() для получения желаемого эффекта.

dummy <- data.frame(cluster = factor(c(1,7), levels = 1:10), 
                    sample.category = "XXX_all", n = 10)

ggplot(dat, aes(x = sample.category, y = n)) +
  geom_col() +
  geom_blank(data = dummy) +
  facet_wrap(~cluster, scales = "free") +
  theme_bw() +
  theme(axis.text.x = element_text(angle = 60, hjust = 1, size = 10)) +
  ylab("") +
  xlab("")