nasıl R'ın heatmap.2 aşağıdaki kodları ile

Question

yatay ayırıcı eklemeniz. Ama ne yapmak istediğim verilen blokların yatay ayırıcılar eklemektir:

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

You parametresini rowsep kullanabilirsiniz:

Let Ben 3 blok listeleri gibi tanımladığınız demek heatmap.2 işlevi (benzer şekilde, dikey çizgiler eklemek istiyorsanız, colsep parametresini kullanabilirsiniz). İşte

, sen 8 değerlerden sonra bir ayrılık koymak istiyorum ve daha sonra 23'ünden sonra bunu yapabilirsiniz:

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)) 

Not: yatay çizgilerin yerleri almak için downvoter kendilerini açıklamak rahatsız etmiyorsa block vektörlere dayalı, sen

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