mappa di calore multiforme ggplot per porzione selezionata di X con ulteriori etichette di testo su di esso

Question

ho i seguenti dati:

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 è una variabile sfaccettatura, position è una variabile x continuo. yvar viene utilizzato per riempire il colore delle tessere. ycat è un'etichetta di testo per ogni riquadro. Voglio creare una trama con spazio vuoto per tutti i valori, ad eccezione di alcune tessere che seleziono per tracciare con un colore di riempimento e le etichette.

Ecco quello che ho finora:

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) 

mi piacerebbe la trama a guardare come questo, tranne avere spazio vuoto ovunque tranne che, per esempio, il gruppo 1 tra 30-50 e il gruppo 5 tra 20-60, un po 'come questo:

Answer 1

questo produrrà l'ultima trama, ma solo ombra regioni selezionate:

ggplot(mydf,aes(y=Id,x=position)) + 
    facet_wrap(~group) + 
    geom_blank() +  
    geom_tile(data = subset(mydf,(group == 1 & position >= 30 & position <= 50) | 
           (group == 5 & position >= 20 & position <= 60)),aes(fill = yvar),colour = "black") + 
    geom_text(data = subset(mydf,(group == 1 & position >= 30 & position <= 50) | 
           (group == 5 & position >= 20 & position <= 60)),aes(label = ycat),size = 3) + 
    labs(x = NULL,y = NULL)