Попытка выровнять дно графиков в grid.arrange &rangeGrob.Также пытаюсь переместить метку оси Y

Question

У меня есть 3 графика, два из которых расположены друг над другом, чтобы они отображались как один график.Я сделал график рядом (2 столбца), чтобы он выглядел как 2 графика рядом друг с другом (хотя, опять же, один график на самом деле состоит из двух графиков).У меня две проблемы:

1. Независимо от того, что я пытаюсь (масштаб, масштаб и т. Д.), Я не могу добиться того, чтобы дно двух соседних графиков было четным.

2. Я не могу получить метку оси Y по центру на сложенном графике, потому что вы не можете создать метку, которая охватывает два графика.Я пытался использовать «заголовок» для всей панели, но затем я не могу изменить размер шрифта, чтобы он соответствовал остальным меткам.

Я пытался использовать vjust,добавив заголовок ко всему графику, используя вместо этого plot_grid и все остальное, что я могу придумать.

city<-c("A", "B", "A", "B", "A", "B")
temp<-c(20, 25, 300, 35, 30, 400)
data1<-data.frame(city, temp)

library(cowplot)
library(gridExtra)

g.top <- ggplot(data1[data1$variable == "city A", ], aes(x = temp)) 
+
geom_histogram(binwidth=1) +
scale_x_continuous(limits = c(0, 100), position = "top") +
scale_y_reverse(limits = c(400, 0))+
theme_minimal(base_size = 16) + theme(panel.grid.major = element_blank(), 
panel.grid.minor = element_blank(),
                      panel.background = element_blank(), axis.line = 
element_line(colour = "black"))+
annotate("text", x=20, y=200, cex=6, label= "city A")+ labs(title="a", 
y="Count")+theme(axis.title.x=element_blank())


g.bottom <- ggplot(data1[data1$variable == "city B", ], aes(x = 
temp)) +
geom_histogram(binwidth=1) +
scale_x_continuous(limits = c(0, 100)) + ylim(0, 400)+
theme_minimal(base_size = 16)+ theme(panel.grid.major = element_blank(), 
panel.grid.minor = element_blank(),
                      panel.background = element_blank(), axis.line = 
element_line(colour = "black"))+
annotate("text", x=20, y=200, cex=6, label= "city B") + labs(x = 
expression("Temp (F)"), y="") 

mean<-c(2, 6)
se<-c(0.01, 0.3)
city<-c("A","B")
df<-data.frame(mean, se, city)

gg<- ggplot(df, aes(x=city, y=mean, group=city, 
color=city, shape=city)) + 
geom_line(size=1, position=position_dodge(0.2))+
geom_jitter(aes(shape=city, size=city), alpha=1, 
position=position_dodge(0.2))+
geom_errorbar(aes(ymin=mean-se, ymax=mean+se), width=.4, 
position=position_dodge(0.2))+
labs(title= "b", x= expression("City"), y =expression("Temp (F)"))+
theme_bw(base_size = 16) + theme(axis.title.x = 
element_text(vjust=200000000), axis.title.y = element_text(vjust=-7), 
legend.title=element_blank())+
theme(legend.justification=c(0.1,0.1), legend.position=c(0.6,0.1))+
scale_color_manual(values=c('#104E8BC8','#FF8C00C8'))+
scale_size_manual(values=c(4,4))+
scale_shape_manual(values=c(19, 17))+theme(legend.position="none")+
theme(axis.ticks.length=unit(-0.25, "cm"), axis.ticks.margin=unit(0.5, 
"cm"),axis.text.x = element_text(margin=unit(c(0.5,0.5,0.5,0.5), 
"cm")),axis.text.y = element_text(margin=unit(c(0.5,0.5,0.5,0.5), "cm")))

grid.arrange(arrangeGrob(g.top, g.bottom), gg, ncol = 2)

Answer 1

Вы можете использовать пакет patchwork для разметки графиков.См. Виньетка для деталей о том, как работает система макетов:

Чтобы установить пакет из github:

devtools::install_github("thomasp85/patchwork")

Затем,

library(patchwork)

{g.top + g.bottom + plot_layout(ncol=1)} - gg