在 ggarange 内对齐 ggplot 对象

Question

我想在图的左侧对齐 ggtexttable {ggpubr} 和 ggarrange {ggpubr} 的图形 {ggplot}。

有办法吗？

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

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 创建

在 ggarange 内对齐 ggplot 对象

Align ggplot objects within ggarange

r

ggplot2

ggpubr