plot.background = element_blank(), keep.source 的设计处理
            panel.grid.major = element_blank(),
            panel.grid.minor = element_blank(),
            panel.border = element_blank(),
            legend.position="none",
            axis.line = element_blank(),
            axis.text.x = element_blank(http://lx.gongxuanwang.com/sszt/7.htm),
            axis.text.y = element_text(size=10, face="bold", color = 'black'),
            axis.ticks=element_blank(),
            axis.title.x = element_blank(),
            axis.title.y = element_blank(),
            plot.title = element_blank()
          )

      
        both = rbind(ggplotGrob(p), ggplotGrob(data.table), size="last")
        panels <- both$layout$t[grep("panel", both$layout$name)]
        both$heights[panels] <- list(unit(1,"null"), unit(2, "lines"))
        both  http://lx.gongxuanwang.com/sszt/7.htm <- gtable_add_rows(both, heights = unit(1,"line"), 8)
        both <- gtable_add_grob(both,