在ggarange中对齐ggplot对象

Question

我想通过绘图的ggarrange {ggpubr}对齐ggtexttable {ggpubr}和图形{ggplot}。

有没有办法做到这一点？

我尝试了align参数，但是对象仍然居中

library(ggpubr)
library(ggplot2)
library(tidyverse)

df <- tibble(Col1 = 1:3,
         Col2 = rnorm(3))

plot <- df %>% 
  ggplot(aes(x = Col1,
         y = Col2)) + 
  geom_line()

table <- ggtexttable(df,
                     rows = NULL)

ggarrange(plot, table,
          ncol = 1, nrow = 2,
          heights = c(1, 0.5))

Answer 1

您可以尝试几个软件包。查看更多here

library(tidyverse)
library(ggpubr)

df <- tibble(Col1 = 1:3,
             Col2 = rnorm(3))

plot1 <- df %>% 
  ggplot(aes(x = Col1,
             y = Col2)) + 
  geom_line()

table1 <- ggtexttable(df,
                     rows = NULL)


library(cowplot)
bottom <- plot_grid(table1, NULL, NULL, NULL)
plot_grid(plot1, bottom, 
          nrow = 2)

library(patchwork)
plot1 / (table1 | plot_spacer() | plot_spacer() |  plot_spacer())

library(magrittr)
library(multipanelfigure)
figure1 <- multi_panel_figure(columns = 3, rows = 2, panel_label_type = c("none"))

figure1 %<>%
  fill_panel(plot1, column = 1:3, row = 1) %<>%
  fill_panel(table1, column = 1, row = 2) %<>%
  fill_panel(plot_spacer(), column = 2, row = 2) %<>%
  fill_panel(plot_spacer(), column = 3, row = 2)
figure1

^{由reprex package（v0.2.1.9000）于2019-02-19创建}