cowplot：对齐两个图时轴标题强制对齐

Question

这段代码重现了问题：

library(ggplot2)

set.seed(0)
df <- data.frame(ID = letters[1:10],
                 Var = rnorm(10),
                 "Some_very_long_label_names" = rnorm(10),
                 "Not_so_long" = rnorm(10),
                 "Short" = rnorm(10),
                 "Incredibly_long_label_name_why_oh_why" = rnorm(10),
                 "Etc" = rnorm(10))
melted_df <- reshape2::melt(df)

p1 <- ggplot(df, aes(ID, Var)) +
    geom_bar(stat = "identity") +
    theme(axis.title.x = element_blank())

p2 <- ggplot(melted_df, aes(ID, variable)) +
    geom_tile(aes(fill = value)) +
    guides(fill = FALSE)

cowplot::plot_grid(p1, p2, nrow = 2, align = "v", axis = "n")

如果你运行那个代码，它会产生这个情节：

这个情节的问题在于第一个情节的 y-axis 标题的定位。我想也许设置 axis = "n" 会阻止它与第二个绘图的轴对齐，但事实并非如此。

我想要的输出是这个图，它对齐了图形但没有对齐轴标签。

Answer 1

您可以改用 egg 包

library(ggplot2)

p1 <- ggplot(df, aes(ID, Var)) +
  geom_bar(stat = "identity") +
  scale_x_discrete(expand = c(0, 0)) +
  theme_bw() +
  theme(axis.title.x = element_blank())

p2 <- ggplot(melted_df, aes(ID, variable)) +
  geom_tile(aes(fill = value)) +
  scale_x_discrete(expand = c(0, 0)) +
  theme_bw() +
  guides(fill = FALSE)

library(egg)
#> Loading required package: gridExtra
ggarrange(p1, p2, nrow = 2)

^{由 reprex package (v0.2.1.9000)}

创建于 2018-09-21

cowplot：对齐两个图时轴标题强制对齐

cowplot: axis title forcefully aligned when aligning two plots

r

ggplot2

cowplot