library(ComplexHeatmap)
library(ggplotify)
library(cowplot)
library(patchwork)
dat = matrix(1:50,5,10)
h = Heatmap(dat)
grob_h = grid.grabExpr(draw(h))
grob_b = base2grob(~{
plot(1:10)
})
cowplot::plot_grid(grob_h,grob_b,ncol = 2)
patchwork::wrap_plots(list(grob_h,grob_b))