wieloaspektowy mapa ciepła z ggplot dla wybranej części X z dodatkowych etykiet tekstowych na nim

Question

Mam następujące dane:

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 jest zmienna faceting, position jest ciągła zmienna x. yvar służy do wypełniania koloru płytek. ycat to etykieta tekstowa dla każdego kafelka. Chcę utworzyć wykres z pustą przestrzenią dla wszystkich wartości, z wyjątkiem niektórych kafelków, które wybiorę do wydruku z kolorem wypełnienia i etykietami.

Oto co mam do tej pory:

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) 

Chciałbym wykres wyglądać tak chyba mieć spację wszędzie z wyjątkiem, na przykład, grupa 1 30-50 i grupa 5 między 20-60, coś takiego:

Answer 1

to będzie produkować ostatnią działkę, ale tylko cień wybrane regiony:

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)