r - ggplot2で外側のマージンを設定するには?

Question

R の基本的なプロットでは、外側の余白を で制御できますが、これを行うoma()ための同様の関数が にあるのではないかと思いggplot2ます。次の図に示すように、図とページの端の間にはほとんどスペースがありません。どうもありがとう。

各サブプロット間の設定マージンについて質問していないことに注意してください (これはplot.margin=ggplot2 で実行できます)。私が求めているのは、図全体の外側のマージンを設定する方法です( omaR基本プロットのようなもの)。ありがとう。

require(cowplot)
require(ggplot2)
x=1:50
y=x^2
z=rep(c("p","sp","n","sn","nt"),each=10)
mydata= data.frame(x,y,z)
plot1=ggplot(mydata,aes(x=x,y=y,group=z))+geom_point(aes(shape=z,color=z),size=1)+scale_shape_manual(values=c(19,1,19,17,17))+scale_color_manual(values=c("blue","black","red","blue","red"))
plot2=ggplot(mydata,aes(x=x,y=y,group=z))+geom_point(aes(shape=z,color=z),size=3)+scale_shape_manual(values=c(19,1,19,17,17))+scale_color_manual(values=c("blue","black","red","blue","red"))
plot3=ggplot(mydata,aes(x=x,y=y,group=z))+geom_point(aes(shape=z,color=z),size=5)+scale_shape_manual(values=c(19,1,19,17,17))+scale_color_manual(values=c("blue","black","red","blue","red"))
plot4=ggplot(mydata,aes(x=x,y=y,group=z))+geom_point(aes(shape=z,color=z),size=7)+scale_shape_manual(values=c(19,1,19,17,17))+scale_color_manual(values=c("blue","black","red","blue","red"))
plot_grid(plot1, plot2, plot1,plot1, align='h', labels=c('a', 'b',"c","d"))

Answer 1

にとどまりたい場合は、導入部の下部に示されているように+cowplotを使用できます。各プロットの幅と高さを通常よりも小さく設定し (この場合は 0.4)、それに応じてプロットを配置します (例: ( ではなく):ggdraw()draw_plot()cowplot(0.1, 0.1)0, 0

ggdraw() +
  draw_plot(plot1, .1, .5, .4, .4) +
  draw_plot(plot2, .5, .5, .4, .4) +
  draw_plot(plot3, .1, .1, .4, .4) +
  draw_plot(plot4, .5, .1, .4, .4) +
  draw_plot_label(LETTERS[1:4], 
                  x = c(.1, .5, .1, .5), 
                  y = c(.9, .9, .5, .5), size = 15)