Heatmap is not wide enough to fit all textbox annotations

[ioanniva]

I hope someone might help me out here. I want to visualize the content of all the intersections of the upset plot. I used anno_textbox to draw textboxes with the gene names of each intersection. But the width of the textbox annotation seems to be limited by the width of the upset plot and the textboxes and text are drawn incorrectly. How can the texboxes be drawn beyond the upset plot borders?

Code of the textboxes:

textbox = columnAnnotation(textbox = anno_textbox(comb_names,
comb_sets,
gp = gpar(fontsize = 6, rot = 90,
col = "black"),
background_gp = gpar(fill = "white",
col = "black"),
add_new_line = TRUE,
first_text_from = "bottom"))

Code for the upset plot:

upset <- UpSet(m_filter,
width = length(comb_name(m_filter))*unit(3, "mm"),
pt_size = unit(2, "mm"),
lwd = 1,
top_annotation = upset_top_annotation(m_filter,
height = unit(12, "mm"),
annotation_name_rot = 90,
annotation_name_side = "right",
annotation_name_gp = grid::gpar(fontsize = 6),
axis_param = list(side = "right", gp = gpar(fontsize = 6))),
right_annotation = upset_right_annotation(m_filter,
width = unit(12, "mm"),
annotation_name_gp = gpar(fontsize = 6),
axis_param = list(gp = gpar(fontsize = 6))),
bottom_annotation = textbox)

Code to draw the plot

draw(heat + upset + density)

Thanks everyone, and have a great day.