您可以直接复制ggplot2::print.ggplot的功能.这似乎可行.

You could copy what ggplot2::print.ggplot does more directly. This seems to work.

pdf('test.pdf', width=5, height=2)

plot(p)

grid::grid.newpage()
grid::grid.draw(ggplot_gtable(ggplot_build(p)))

dev.off()