小编yus*_*kam的帖子

我很难找到对齐 ggplot grob 和 table grob 的解决方案。我尝试按照此处的说明进行操作，但仍然没有给出我想要的结果。

library(grid)
library(gridExtra)
library(ggplot2)
library(tibble)
library(gtable)
dat <- tibble::rownames_to_column(mtcars, "car") #convert rownames to first col

plot1 <- ggplot(dat, aes(car, mpg)) +
    geom_bar(stat = "identity") +
    coord_flip()

g1 <- ggplotGrob(plot1)
tb1 <- tableGrob(dat$cyl)
g1 <- gtable_add_cols(g1, unit(0.2, "npc"))
g1 <- gtable_add_grob(g1, grobs = tb1, t=3, l=ncol(g1), b=6, r=ncol(g1))

grid.newpage()
grid.draw(g1)

我希望表格中的每个单元格都与直方图中的相关条对齐，但仍然无法理解如何从布局中实现 t,l,b,r。这是我得到的输出