Hi,

I'm attempting to separate the final column from the others (as shown in the plot below) due to the significantly greater number of barplots it contains compared to the rest. Could I possibly divide them and create distinct y-axis scales for each group? Any suggestion will be greatly appreciated!

Please see the script below.

rownames(sig) = sig$Gene

sig_mat = as.matrix(sig[,2:9])

pdx = as.numeric(as.matrix(pdx_no[,2:9]))

cell_fun4 = function(j, i, x, y, width, height, fill) { grid.rect(x = x, y = y, width = width, height = height, gp = gpar(col = "gray", fill = fill)) if(sig_mat[i, j] != 0) { if(sig_mat[i, j] > 9) { grid.text(sig_mat[i, j], x, y, gp = gpar(col = "white")) } else { grid.text(sig_mat[i, j], x, y, gp = gpar(col = "black")) } } }

col_fun4 = colorRamp2(c(0, 2, 5, 10, 20), c("#FFFFFF", "#D3D3D3", "#808080", "#A9A9A9", "#000000"))

col_anno <- columnAnnotation(Pct_model = anno_barplot(pdx, bar_width = 0.3, gp = gpar(fill= c("#E64B35","#00A087","#3C5488", "#F39B7F","#8491B4","#8e0152", "#7E6148","#B09C85")), add_numbers = TRUE, height = unit(2, "cm"), numbers_rot = 0, numbers_gp = gpar(fontsize = 12), border = TRUE, name=NULL ))

hm4 <- Heatmap(sig_mat, name = "#_of_LOE_Sig", cluster_rows = FALSE, cluster_columns = FALSE, show_row_names = TRUE, show_column_names = FALSE, column_names_side = "top", row_names_side = "left", column_names_gp = gpar(fontsize=13,fontface="bold"), row_names_gp = gpar(fontsize=10,fontface="bold"), cell_fun = cell_fun4, col = col_fun4, bottom_annotation = col_anno, show_heatmap_legend = FALSE )

hm4