mapa de calor de múltiples facetas con ggplot para porción seleccionada de X con etiquetas de texto adicionales en él

Question

tengo los siguientes datos:

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 es una variable de facetado, position es una variable x continua. yvar se utiliza para rellenar el color de las baldosas. ycat es una etiqueta de texto para cada mosaico. Quiero crear un gráfico con espacio vacío para todos los valores, excepto ciertos mosaicos que selecciono para trazar con un color de relleno y etiquetas.

Esto es lo que tengo hasta ahora:

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) 

me gustaría la trama para parecerse a esto, excepto tener un espacio en blanco en todas partes excepto, por ejemplo, el grupo 1 entre 30-50 y el grupo 5 entre 20-60, algo así como esto:

Answer 1

esto producirá su última trama, pero sólo la sombra regiones seleccionadas:

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)