我有代码创建两个不同的图，然后使用gridExtra包中的arrangeGrob将这两个图放入一个然后使用ggsave函数通过使用以下代码块将它们存储到我的磁盘：
ggsave(filename = paste0("plot-lin-fit", no1, "attribute-",no2, "type-", var.type, ".png"),
plot = p3,
path = "./lin fit plots/", width = 38, height = 16.92, units = "cm")
当我将其作为函数的一部分运行以创建两个图形时，该函数需要26秒来创建两个图形，将它们放在一个绘图窗口中并将它们与ggsave一起存储到我的磁盘中。当我运行没有代码的ggsave部分的函数时，它只需要16秒。因此，通过忽略ggsave，时间会大大减少。因为我想要这么多的数据帧，不仅是10倍而是3600倍，我需要尽可能减少时间。
如何减少绘制这些功能的时间？任何帮助都表示赞赏，因为我是新手。