R - 如何为复杂的ggplot图像分配屏幕空间

I am trying to write a script that produces four different plots in a single image. Specifically, I want to recreate this graphic as closely as possible:I am trying to write a script that produces fou