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,


雷达卡


京公网安备 11010802022788号







