如何调整组合 plot 中每个元素的 alignment

Question

我有一个 plot 和一个表格，我想将两者都放入一个 plot 和一个脚注。 以及如何将表格向左对齐？ 和符号在右边？

我目前的代码是：

df<-structure(list(AEDECOD = c("Hypoxia", "Malignant pleural effusion", 
"Decubitus ulcer", "Nausea"), ADY = c(13, 13, 13, 14)), row.names = c(NA, 
-4L), class = "data.frame")

tbl <-structure(list(`Analysis Relative Day` = 13, `AE Type` = "SER", 
    `Adverse Event` = "Hypoxia/Malignant pleural effusion"), row.names = c(NA, 
-1L), class = c("tbl_df", "tbl", "data.frame"))

p1<- ggplot(data =df, aes(x = ADY, y = AEDECOD, color=AEDECOD))+ 
geom_point()

tbl2<-tableGrob(tbl, rows=NULL)
p2 <-grid.arrange(p1, tbl2,
nrow = 2,as.table = TRUE,
bottom="Notation here")

print(p2)

我的 output 看起来像这样：

Answer 1

我们可以通过从patchwork中指定plot_layout来进行更多控制

library(patchwork)
library(dplyr)
library(ggplot2)
library(gridExtra)

p2 <- tableGrob(tbl, rows=NULL)
p3 <- tableGrob("Notation here")
layout <- c(
  area(t = 1, l = 1, b = 3, r = 5),
  area(t = 4, l = 1, b = 7, r = 3),
  area(t = 4, l = 6, b = 6, r = 7)
)
p1 + p2 + p3 + 
  plot_layout(design = layout)

注意：如果我们想更改位置，那么我们可以在每个图中更改t op、bottom、left、 r的值 - 确保t < b b l l < r

-输出