通过ggsave 导出保存即可：

    1. ggsave(filename = paste0("./other_scripts/sig_96.pdf"), plot = p, width = 7000, height = 2000, units = "px")

    或者其他的包，如Cairo 等调整也行。