使用 ggarrange 函数制作的一组图添加主标题。
每个情节都有一个标题,但我需要两个数字的主标题。类似于图 1 和图 2 的“图 1:按性别分布”。
library(tidyverse)
library(ggpubr)
my_data_2018 <- tibble(Var = c(900, 1500, 350, 1200, 750, 100,125,250,300),
Gender = c("W", "W", "W", "M", "M", "W", "W", "M", "W"),
my_weights_2018 = c(2.2, 3.1, 8.2, 4.2, 5.3, 6.8, 12, 25, 1))
my_data_2019 <- tibble(Var = c(32, 21, 21, 900, 1500, 350, 1200, 750, 100,125,250,300),
Gender = c("W", "W", "W","W", "W", "W", "M", "M", "W", "W", "M", "W"),