r语言 - grid.arrange 在后跟菜单时没有完成绘制大图

Question

我有 4 个 ggplot 对象，其中包含相当多的元素，使得单个图需要很长时间才能加载，但是当我单独加载它们时，它们确实完成了添加所有元素。

我希望所有 4 个图都在同一图中，我使用 grid.arrange当我单独运行每个元素(保存图，然后单独运行grid.arrange()行(时，图会按预期呈现。但是，当我使用 ctrl+alt+R 运行完整脚本时，我只得到第一个图，第二个图的一点点。

有没有可能增加时间限制，让剧本完成剧情制作？

data<- data.frame(c(1,2,3),c(4,5,6))
plot1 <- plot2 <- plot3 <- plot4 <- data %>% 
  ggplot(aes(x = .[,1], y = .[,2])) + 
  geom_text_repel(label = rownames(data)) + 
  geom_point(color = "blue") + 
  theme_bw() + 
  ggtitle("data title") + 
  labs(x = "xlabel", y = "ylabel") + 
  geom_vline(xintercept = 0)+ 
  geom_hline(yintercept = 0)
grid.arrange(plot1, plot2, plot3, plot4, ncol = 2)
a<- menu(c("yes","no"), title="Make a choice")

Answer 1

这个问题的解决方案是在 grid.arrange 和 menu 之间添加一个pause(0.1)