您可以尝试：

png('out.png')

a<-c(1,2,3,4,5,6,7)
b<-c(2,3,4,6,7,8,9)
par(mfrow=c(2,1))
plot (a,b)
plot(a,b)
dev.off()

正如baptiste所说，jpeg是你能选择的最糟糕的格式，你应该看看bmp和png函数的帮助（具有?bmp和?png）。bmp和png都具有height、width、和res参数，您可以使用这些参数指定输出的尺寸和分辨率。另外，我不推荐使用dev.copy。正如您所看到的，输出的结果并不总是您所期望的。

为了补充Bonifacio2的答案，如果你先调用函数来绘图，你也可以在实际绘图之前定义你的边距和窗口大小等，这样你就可以完全控制所有的图形规格。

pdf(file='test.jpeg',width=80,height=150,units="mm")  #I prefer pdf, because they are editable files
a<-c(1,2,3,4,5,6,7)
b<-c(2,3,4,6,7,8,9)
par(mfrow=c(2,1))
plot (a,b)
plot(a,b)
dev.off()

您可以使用cowplot包以几种不同的方式合并多个面板。例如，在您的情况下，我们导出一个图，其中两个面板排列在两行和一列中。我假设您更喜欢使用base-R 'plot'函数，而不是ggplot。

library(cowplot)
p1 <- ~{
  plot(a,b)
  }

p2 <- ~{
  plot(b,a)
}

png("plot.png",
    width = 3.149606, # 80 mm 
    height = 5.905512, # 150 mm 
    units = 'in',
    res = 500)

plot_grid(p1, p2, labels = "AUTO", nrow = 2, ncol = 1)

dev.off()

请注意，如果不需要，您可以删除标签，或者使用“自动”打印小写字母。关于文本大小、轴标签等，请使用标准参数作为base-R的通用绘图函数。我希望这个答案对您有帮助。祝您好运。