Выровнять объекты ggplot внутри ggarange

Question

Я хотел бы выровнять ggtexttable {ggpubr} и графику {ggplot} по ggarrange {ggpubr} в левой части графика.

https://stackru.com/images/0742fbfa70c65fb368551e d147af90d7b2f28de6.png

Есть ли способ сделать это?

Я пробовал аргумент выравнивания, но объекты по-прежнему центрированы

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

Есть несколько пакетов, которые вы можете попробовать. Подробнее здесь

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

^{Создано в 2019-02-19 с помощью пакета представительства (v0.2.1.9000)}