Выровняйте несколько участков по коровьей - PullRequest
Новая
       33

Выровняйте несколько участков по коровьей

1 голос
/ 14 июня 2019

У меня есть следующий код: 

p_all<-plot_grid( p_as + theme(legend.position="none"), 
              p_cd + theme(legend.position="none"),
              p_cu + theme(legend.position="none"),
              p_pb + theme(legend.position="none"),
              p_ni + theme(legend.position="none"),
              p_zn + theme(legend.position="none"),
              p_hg + theme(legend.position="none"),
              p_cr + theme(legend.position="none"),
       align = 'v',
       hjust = 0,
       ncol = 2
)

p_all2<-plot_grid( p_all, legend_b, ncol = 1, rel_heights = c(6, .2))
p_all2

grid.arrange(arrangeGrob(p_all2, 
                     left = textGrob(label=expression(paste('mg'~g^-1~'Trockenmasse')), rot = 90, vjust = 1),
                     right = textGrob(label = "W (m)", rot=270, vjust =1.5)))

, который создает следующий график:

enter image description here

Я должен использовать plot_gridтак как я использую sec_axis для отображения уровня воды на второй оси Y.

Как я могу получить последние 2 графика в нижней части, чтобы иметь тот же размер, что и другие графики.Я знаю, что разница в размере связана с осью X.Есть ли способ удалить ось X также из последних двух графиков, используя axis.title.x = element_blank() и axis.ticks.x = element_blank(), а затем добавить ось X в отдельный ряд прямо под двумя последними графиками?

...