R-Cowplot：使用plot_grid排列png图像和ggplot

Question

我正在尝试使用cowplot包中的plot_grid并排排列png图像和ggplot对象：

library(cowplot)
library(tableHTML)
sg <- data.frame(start = c(0,5,10), end = c(10,20,30), duration = c(10,15,20), row.names = c("A","B","C"))
p1 <- ggplot(sg)+
  geom_segment(aes(x=start, y=row_number(start), xend=end, yend=row_number(start)), size = 3) +
  scale_y_reverse(labels = NULL) +
  labs(y = "", x = "") +
  theme(aspect.ratio = 1/5)
sg %>%
  tableHTML() %>%
  add_theme("scientific") %>%
  tableHTML_to_image(file = "image2.png", zoom = 2)
p2 <- ggdraw() + draw_image("image2.png", scale = 0.7)
plot_grid(p2, p1, ncol = 2, scale = c(0.9,1), rel_widths = c(1, 2))

但是，在结果图中，我发现很难按要求排列两个图。 see here

理想情况下，我希望表格图像的下边框与图形的x轴对齐。我也希望两个项目彼此接近。

我尝试过修改图p2的比例， tableHTML_to_image命令中的zoom参数， 或plot_grid命令中的scale，rel_widths，align和axis参数， 但这并没有真正使我更接近所需的输出。

我也在这里阅读： Insert Image/PNG ggplot2 - Cowplot 但这仅用于在现有绘图中添加图像，而不是在其旁边添加图像。

虽然当布置两个ggplots时plot_grid可以正常工作，但我无法通过图像和ggplot来正确处理。