因为词汇的长度不同，这些图表占用的页面空间略有不同。
所以，这看起来有点乱。
一般来说，我们使用facet_grid（）或facet_wrap（）确保在绘图的过程中保持整齐和对齐，这个项目中不再适用，因为每个都有自己的自定义背景图像。
使用Cowplot而不是arrangebrob，让图片的轴垂直对齐
big_plot_aligned <- cowplot::plot_grid(plotlist = all_plots, align = 'v', nrow = 4)
增加X轴的标题，和之前类似，注意网格对齐
big_plot_w_x_axis_title_aligned <- arrangeGrob(big_plot_aligned, px_axis_x, heights = c(10,1))
然后，大功告成☟
然后，保存一下！
ggsave(big_plot_w_x_axis_title_aligned, file = "Avengers_Word_Usage.png", width = 12, height = 6.3)
相关报道：
https://towardsdatascience.com/i-analyzed-marvel-movie-scripts-to-learn-what-each-avenger-says-most-2e5e7b6105bf
http://mattwinn.com/Plot_Avengers_data.html
