將多個圖輸出到R中的文件

Question

我正在嘗試並排繪制兩個圖形並將它們保存到文件中。 這是下面的代碼。 問題是我無法控制利潤。 無論我輸入什么邊距，它們都不會反映在文件中。

總的來說，有任何關於如何在R中很好地打印到文件的教程。我正在閱讀所有手冊和示例，但並不太清楚。 當我打印時，事情以非常有趣的方式被扭曲，我不記得在Matlab或Python中遇到同樣的麻煩。 R具有自由度的色調。

library(ggplot2)
library(gridExtra)

sample_df <- data.frame(col_1=c(1,2,3), col_2=c(6,7,8))
plot_1 <-ggplot(data=sample_df, aes(x = col_1, y =col_2, group=1))+
  geom_line()+ggtitle('Title 1')
plot_2 <-ggplot(data=sample_df, aes(x = col_1, y =col_2, group=1))+
  geom_line()+ggtitle('Title 2')

width_letter = 6
height_letter = width_letter*8.5/11

pdf('outpdf_1.pdf', width=width_letter, height=height_letter)
par(mai=c(3.02,0.82,0.82,0.42))
grid.arrange(plot_1, plot_2, ncol=2)
dev.off()

Answer 1

您可以使用Cowplot軟件包。 主題函數內部的plot.margin允許設置邊距。 這是一個示例，在四個側面各有2厘米的頁邊距：

library(ggplot2)
library(gridExtra)
library(cowplot)

sample_df <- data.frame(col_1=c(1,2,3), col_2=c(6,7,8))
plot_1 <-ggplot(data=sample_df, aes(x = col_1, y =col_2, group=1))+
  geom_line()+ggtitle('Title 1')
plot_2 <-ggplot(data=sample_df, aes(x = col_1, y =col_2, group=1))+
geom_line()+ggtitle('Title 2')

width_letter = 6
height_letter = width_letter*8.5/11

pdf('outpdf_1.pdf', width=width_letter, height=height_letter)
plot_grid(plot_1, plot_2, labels = "AUTO", ncol = 2, align = 'v') +   
 theme(plot.margin = unit(c(2,2,2,2), "cm")) 

dev.off()