многогранная тепловая карта с ggplot для выбранных часть X с дополнительными текстовыми метками

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

Id = paste ("ID-", 1:5, sep = "")
position <- rep(seq (1, 100,10), each = 5)
group = rep (rep(rep (1:5, each = length (Id)), each = length(position)))
yvar <- rnorm (length(position), 0.5, 0.1)
ycat <- c(sample (c("A", "B"), length(yvar), replace = TRUE))
namevar <- rep(Id, length(group)/length(Id))
mydf <- data.frame (namevar, group, position, yvar, ycat)

group— переменная огранки, position— непрерывная переменная x. yvar— используется для заливки цветом плитки. ycat— текстовая метка для каждой плитки. Я хочу создать график с пустым пространством для всех значений, кроме определенных плиток, которые я выбираю для построения с цветом заливки и

Вот что у меня есть на данный момент:

  ggplot(mydf,aes(y=Id,x=position)) +
      facet_wrap(~group) +     
      geom_tile(aes(fill = yvar),colour = "black") +
      geom_text(aes(label = ycat)) +
      labs(x = NULL,y = NULL)

Я бы хотел, чтобы график выглядел так, за исключением пробелов везде, кроме, например, группы 1 между 30-50 и группы 5 между 20-60, примерно так: