z两个ggplot 图合并到一起，一个x轴两个y轴 raw_data <- read_delim('./data/GO_pathway.txt', delim = '\t')head(raw_data)library(dplyr)library(Cairo)double_y_axis <- function(p1, p2){g1 <- ggplot_gtable(ggplot_build(