您可以使用theme(plot.margin)ggplot2 中的函数来减少间距。
这里有一个简单的工作示例:
library(grid)
library(gridExtra)
library(ggplot2)
x <- seq(1,10,1)
y <- dnorm(x,mean=10,sd=0.5)
# Create p1
p1 <- qplot(x,y) + theme(plot.margin=unit(c(1,1,-0.5,1),"cm"))
# Create p2
p2 <- qplot(x,y) + theme(plot.margin=unit(c(-0.5,1,1,1),"cm"))
grid.arrange(p1,p2)
Run Code Online (Sandbox Code Playgroud)
编辑
这四个数字是c(bottom,left,top,right)
样本输出
