Come aggiungere separatore orizzontale in heatmap.2 di R

Question

con i seguenti codici:

library(gplots) 
heatmap.2(as.matrix(mtcars),density.info="none",trace="none",Colv=FALSE,Rowv=FALSE,dendrogram="none",margin=c(10,10)) 

posso creare il heatmap. Ma quello che voglio fare è aggiungere i separatori orizzontali dei blocchi dati:

diciamo che ho 3 isolati definito come liste:

block1 <- c("Mazda RX4","Mazda RX4 Wag","Datsun 710","Hornet 4 Drive","Hornet Sportabout","Valiant","Duster 360","Merc 240D") 
block2 <- c("Merc 230","Merc 280","Merc 280C","Merc 450SE","Merc 450SL","Merc 450SLC","Cadillac Fleetwood", "Lincoln Continental","Chrysler Imperial" ,"Fiat 128","Honda Civic","Toyota Corolla","Toyota Corona","Dodge Challenger","AMC Javelin") 
block3 <- c("Camaro Z28","Pontiac Firebird","Fiat X1-9","Porsche 914-2","Lotus Europa","Ford Pantera L","Ferrari Dino","Maserati Bora","Volvo 142E") 

Answer 1

È possibile utilizzare il parametro rowsep in Funzione heatmap.2 (analogamente, se sei interessato ad aggiungere linee verticali, puoi utilizzare il parametro colsep).

Qui, si vuole mettere una separazione dopo i valori 8 ° e poi, dopo il 23 ° in modo da poter fare:

heatmap.2(as.matrix(mtcars), 
      density.info="none", 
      trace="none", 
      Colv=FALSE, 
      Rowv=FALSE, 
      dendrogram="none", 
      margin=c(10,10), 
      # now the separations: 
      rowsep=c(8, 23)) 

NB: per recuperare i luoghi delle linee orizzontali basato sui vettori block, è possibile fare

which(row.names(mtcars)==block1[length(block1)]) # 8 
which(row.names(mtcars)==block2[length(block2)]) # 23