gg_dot <- plot_grid(gg_dot_1, gg_dot_2, labels = LETTERS[1:2], ncol = 1 )