RStudio 需要很长时间才能显示 ggplot 图

Question

我正在编写一段代码，在多个时间步长上进行长时间计算，并逐步绘制结果。

这是Windows 7下的R 3.6.1，RStudio 1.1.383。

我在 RStudio 工作，并尝试使用 ggplot2 绘制图表。代码的整体结构是这样的

for (step in 1:nb_steps){
    ... do big calculations
    m<-ggplot(.... the data...) + ... some options
    print(m)
}

您会注意到我确实将 ggplot() 的结果分配给了一个变量，并且我明确地打印了它——正如许多相关帖子、此处以及 RStudio 网站中所建议的那样。

在我的(实际)示例中，结果是循环每次迭代(“大计算”部分)大约需要 2-3 秒。 (gg)graph 闪烁一瞬间，然后消失，绘图窗口消失——据我所知，在 print() 语句后不久。

如果我使用“常规”图(在本例中为 image() )，代码将按预期工作，即该图保持可见，直到它被其他东西过度绘制。

现在我的实际代码有点长，所以我尝试设计一个最小的可重现示例。这是我想出的，结果类似于“主要”示例。

library(ggplot2)

data(mpg)

for(i in 1:10){
  cat(i); cat("\n")
  for (j in 1:100000){j*j} # Do something time-consuming
  m<-ggplot(mpg, aes_(~ displ, ~ hwy, colour = ~trans)) +
        geom_point() + ggtitle(paste("graph number",i))
print(m)
}

这给出了相同的结果，即图表短暂显示，然后消失，窗口在新图表出现之前保持空白片刻。同时关注控制台和绘图有点困难( !)，但我的印象是实际的绘图构建(ggplot() 命令)有点耗时，并且开始通过消隐窗口，然后创建绘图，这是 then 在最后绘制的。因此，我在运行 ggplot() 命令本身时一直看到一个空白窗口。在我的实际代码中，ggplot() 更复杂(它是一个 50*50 矩阵的 geom_raster())所以延迟时间更长，实际上我有更多的空白窗口而不是绘图!

当然，我可以在最后添加一个 Sys.sleep()。我会看到图表更长的时间，但空白期似乎并没有减少，显然这会使运行时间更长，这不是我在现实生活中想要的。

我想要的是绘图窗口应该保持原样直到 print() 语句。这会给人一种错觉，即一个情节取代了前一个情节，没有中断。

有什么办法吗？

谢谢!

Answer 1

您的一个建议可能是将您的 ggplot 对象保存到一个 grob(网格图形对象)中，然后打印该 grob。

这样做 - 在我的笔记本电脑上使用您的示例代码 - 将空白时间缩短一半。

library(ggplot2)
library(grid)

data(mpg)

for(i in 1:10){
  cat(i); cat("\n")
  for (j in 1:100000){j*j} # Do something time-consuming
  m<-ggplot(mpg, aes_(~ displ, ~ hwy, colour = ~trans)) +
        geom_point() + ggtitle(paste("graph number",i))
  grid.draw(ggplotGrob(m))
}