grid.arrange在菜单后面没有完成绘制大图

Posted 2021-04-10

我有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")

答案

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