Subset annotations while subsetting heatmap

[Rohit-Satyam]

Hi @jokergoo

I was trying to make a presence-absence heatmap with a broad annotation category. I have 200 signaling pathways and their broad categories. I drew heatmap using the following code for first 20 pathways

ht <- Heatmap(t(p), col = c('White','Grey'), width = 7*unit(5, "mm"), 
        height = 5, show_row_dend = F, show_column_dend = F,row_names_side = "left"
          ,heatmap_legend_param = list(
            title = "",  
            labels = c("Present", "Absent"), border = "Black"
        ))

ht[1:20,] + rowAnnotation(Category=annot2$label[1:20]) 

However, I wish to take this row annotation color bar to the left. How do I do that?

[jokergoo]

draw(ht[1:20,] + rowAnnotation(Category=annot2$label[1:20]), annotation_legend_side = "left")