Объединить график корреляции с таблицей коэффициентов (ggplot2 -> ggstatplot)

Каковы ваши предпочтительные методы объединения таблицы с графиком в одном изображении с использованием R? Я помню, как использовал tableGrob() и либо лоскутное одеяло, либо коровий план несколько месяцев назад, но не могу вспомнить подробности.

В этом примере используется пакет ggstatsplot. Я хотел бы добавить коэффициенты корреляции в коррелограмму (график корреляции).

if (!('ggstatsplot' %in% installed_packages)) {
    devtools::install_github('https://github.com/IndrajeetPatil/ggstatsplot')
}
needed_pkgs <- setdiff(c('ggstatsplot', 'statsExpressions',
                       'dplyr', 'nnet', 'MASS'),
                       installed_packages)
if (length(needed_pkgs) > 0) {
    install.packages(needed_pkgs)
}

library(ggstatsplot)
library(statsExpressions)
library(dplyr)
library(nnet)
library(MASS)
utils::example(topic = birthwt, echo = FALSE)

# model
bwt.mu <-
    nnet::multinom(
        formula = low ~ .,
        data = bwt,
        trace = FALSE
    )

original_cols <- colnames(bwt)

bwt.mu_coefstats <- ggcoefstats(x = bwt.mu, output = "tidy") %>% 
    # skipping first row = intercept
    slice(2:n()) %>% 
    dplyr::filter(term %in% original_cols) %>% 
    arrange(desc(p.value)) %>% 
    dplyr::select(term, estimate, p.value)

# Correlogram
cor_plot_out <- 
    ggstatsplot::ggcorrmat(bwt %>% dplyr::select(low, lwt, age))

Хотите объединить

bwt.mu_coefstats

cor_plot_out