如图，我想做这样的图像拼接，我使用的是par(mfrow=c(3,1))函数，但是出现几个问题：
1，如何使三个图片无缝拼接在一起
2，怎么控制图片的大小
3，我用了mar()函数设置边距，也用了pin()设置图片大小，但是不能达到示例中的格式，会显示图像超过画布的错误，或者出现这样的提示：Error in plot.new() : plot region too large
以下是我的部分代码：
opar<-par(no.readonly = T)
par(mfrow=c(3,1))
par(mar=c(0,24,0,24),mgp=c(1.5, 0.5, 0))
plot(mydata$GDP,mydata$Protein_g,xlim=c(0,8),ylim=c(-4,-1.5),
     pch=21,col=1,bg=mydata$Names,cex=1.5,lwd=2,
     axes=F,xlab=NA,ylab="Protein(g)",font.lab=2)

请问怎样才能实现例子中这样的拼接呢？或者怎么增长画布的长度，问题有点多，谢谢各位大神