在for-loop中交错消息打印和绘图

Question

我正在尝试在r笔记本块中执行for循环，以打印一些消息和交错的图，如下面的代码所示：

for(i in 1:2) {
  print(paste0("before ", i))
  plot(i, i)
  print(paste0("after ", i))
}

但是，第一个绘图出现在第二个绘图的位置，第二个绘图在所有消息打印后出现。 寻找解决方案我找到了这个（Using loops to print output into Knitr）

for(i in 1:2) {
  print(paste0("before ", i))
  plot(i, i)
  plot.new()
  # This function (frame is an alias for plot.new) causes the completion of 
  # plotting in the current plot (if there is one) and an advance to a new
  # graphics frame.
  print(paste0("after ", i))
}

哪种方法可以修复它，但不幸的是，为每个有效的绘图创建了空图。 有没有人知道一种方法，可以在不创建新图形框架的情况下完成绘图？