Термоусадочные и выравнивающие участки с сеткой.arrange

Question

У меня есть три участка, и я хотел бы их уложить, сжать дно 2 и убедиться, что они выровнены по вертикали. Я могу сделать то или другое, но не то и другое. Как вы можете видеть на графике 1, графики выровнены по вертикали, но мне нужно сжать нижние два; и на графике 2 нижние два были сжаты, но не выровнены по вертикали.

Как я могу сжать нижние два участка и убедиться, что все графики выровнены по вертикали?

Вот пример:

ggplot:

library(gridExtra) 
library(ggplot2) 
library(cowplot) 
a <- ggplot(data = diamonds, mapping = aes(y = carat, x = price)) + geom_line() 
b <- ggplot(data = diamonds, mapping = aes(x = clarity)) + geom_bar() 
c <- ggplot(data = diamonds, mapping = aes(x = color)) + geom_bar() 

Участок 1:

plot_grid(a, b, c, labels=c("", "", ""), ncol = 1, nrow = 3, align = "v") 

Участок 2:

grid.arrange(a,b,c, ncol = 1, nrow = 3, widths = c(1), heights = c(1,.3,.3)) 

Answer 1

Попробуйте rel_heights аргумент:

plot_grid(a, b, c, ncol = 1, align = "v", rel_heights = c(3, 1, 1))