Modification of the position of color bar

[zixiaowang17]

Hi !

Thank you so much for building this package, I have issues with:

1. There are three legend right now in the bottom, i only want to keep the red green ones.
2. I want to make the annotation on the left to disappear.

Here is the plot:

and my code `

pdf(paste0(target1_name, "_", target2_name, ".pdf"), width = 6, height = 10) if (target1_name=="POLR2AphosphoS2"){ target1_name="Pol II S2P"} if (target2_name=="POLR2AphosphoS2"){ target2_name="Pol II S2P"} col_t1 <- "#9D343C" col_t2 <- "#5AAA46" cluster_colors <- c("#44708b", col_t1, col_t2) # Adjust colors as needed annotation_min <- min(min(mat_target1_signal), min(mat_target2_signal)) annotation_max <- max(max(mat_target1_signal), max(mat_target2_signal)) lgd <- Legend(at = c("cluster1", "cluster2", "cluster3"), title = "Clusters", type = "lines", legend_gp = gpar(col = cluster_colors)) ht_list = Heatmap(partition, col =cluster_colors, show_row_names = FALSE, width = unit(5, "mm")) + EnrichedHeatmap(mat_target1_signal, column_title = target1_name, axis_name = axis_name, col = c("white", col_t1), top_annotation = HeatmapAnnotation(lines = anno_enriched( ylim = c(0, annotation_max), row_title = NULL, gp = gpar(col = cluster_colors), axis_param = list(side = "left", facing = "outside") ) ), # #name = NULL, row_order = orders, )+ EnrichedHeatmap(mat_target2_signal, row_title = NULL, column_title = target2_name, axis_name = axis_name, col = c("white", col_t2), top_annotation = HeatmapAnnotation(lines = anno_enriched( ylim = c(0, annotation_max), gp = gpar(col = cluster_colors), axis_param = list(side = "right", facing = "outside") ) ),
heatmap_legend_param = list(side = "bottom"), row_order = orders)
draw(ht_list, heatmap_legend_side = "bottom",split = partition, #annotation_legend_list = list(lgd) ) dev.off()`

Thank you so much for your help, any advice is highly appreciated!