çok yönlü ısı haritası

Question

aşağıdaki verileri:

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) 

groupposition sürekli bir X değişkeni, bir yontma değişkendir. Karoların rengini doldurmak için yvar kullanılır. ycat, her bir döşeme için bir metin etiketidir. Bir dolgu rengi ve etiketi ile çizim yapmak için seçtiğim bazı döşemeler dışında, tüm değerler için boş alan içeren bir çizim oluşturmak istiyorum.

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) 

Ben 30-50 arasında grup 1, örneğin, dışında her yerde boş alana sahip dışında bu gibi görünmek için arsa istiyorum: Burada

Ben bugüne kadar ne olduğunu ve 5 20-60 arasında, sıralama bu gibi grup:

Answer 1

Bu son arsa, ama sadece gölge üretecek seçili bölgeler:

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)