R中是否可以将条形图插入表格中？

Question

我无法弄清楚如何在表格中插入图表，以使图表的每一行与表格的每一行对齐。

以下是一些数据示例：

library(survival)
df <- data.frame(futime = abs(rnorm(1000, mean = 5, sd = 5)),
                 outcome = sample(c(0, 1), replace = TRUE, size = 1000),
                 variable1 = factor(sample(c(0, 1), replace = TRUE, size = 1000)))
fit.coxph <- coxph(Surv(time = futime, event = outcome) ~ variable1, data = df)

我正在尝试实现类似于ggforest创建的图形。

ggforest(fit.coxph)

我不想使用ggforest的原因是因为我想进一步定制图形。我已经可以创建图形了（下面的代码），我只是想弄清楚如何将其插入到表中。

df1 <- data.frame(Name = "Variable 1",
                  Ratio = exp(coef(fit.coxph)),
                  CI = exp(confint(fit.coxph)))
ggplot(df1, 
       aes(x = rownames(df1), y = Ratio, ymin = CI.2.5.., ymax = CI.97.5..)) +
  geom_pointrange() +
  geom_hline(yintercept = 1, linetype = 2) +
  scale_y_continuous((trans = "log2")) +
  geom_errorbar(width = 0.2) +
  coord_flip()