Change height of annotations

[cristobalcar]

Hi, I wanted to know how to change the height of this annotations:
code:

UPSETPLOT<-upset(TRATAMIENTO_ANTI_COVID_CON_VMI
                 ,TRATAMIENTO_ANTI_COVID_COLUMNAS
                 ,width_ratio=0.1
                 ,name='TERAPIAS ANTI COVID19'
                 ,stripes=c("white", "#B4D5DE")
                 ,min_degree=0
                 ,keep_empty_groups = TRUE
                 ,base_annotations=list(
                   'Intersection size'=intersection_size(text_aes=aes(label=paste0(round(intersection_size/union_size * 100), "%|",intersection_size,"")))
                 )
                 ,themes=upset_modify_themes(
                   list(
                     'intersections_matrix'=theme(text=element_text(size=15)),
                     'overall_sizes'=theme(axis.text.x=element_text(angle=90))
                   ))
                 ,annotations = list(
                   'ESTADIA\nHOSPITALARIA'=list(
                     aes=aes(x=intersection, y=LOS_DIAS),
                     geom=geom_boxplot()
                   ),
                   'LETALIDAD'=list(
                     aes=aes(x=intersection, fill=FALLECIDOS)
                     ,geom=list(
                       geom_bar(stat='count', position='fill')
                       ,scale_fill_manual(values=as.vector(c(GRIS,ROJO)))
                       ,scale_y_continuous(labels=scales::percent_format())))
                 ))

output:

I need to obtain something like this:

[krassowski]

Simply use + patchwork::plot_layout(heights=c(1, 0.2, 1)), e.g.:

upset(
    movies, genres, name='genre', width_ratio=0.1, min_size=100,
    annotations =list(
        'Intersection ratio'=intersection_ratio(
            text_aes=aes_(label=upset_text_percentage())
        ),
        'MPAA Raiting'=list(
            aes=aes(x=intersection, fill=mpaa),
            geom=list(
                geom_bar(stat='count', position='fill'),
                scale_y_continuous(labels=scales::percent_format())
            )
        )
    ),
    min_max_early=FALSE,
) + patchwork::plot_layout(heights=c(1, 0.2, 1, 1))

[cristobalcar]

Works great!
Thank you