在循环内导出Keras培训历史记录图

Question

我正在for循环内的R中训练Keras模型（是的，我知道，for循环不好）。当我一次运行一次代码时，模型的plot（history）可以完美地工作，而在循环内时，它将输出空白图像。

因为它使用了ggplot2，所以我尝试通过Sys.sleep（2）设置一个延迟，以查看是否存在与绘图相关的系统延迟，但这没有帮助。

hist_nm_pre <- model %>% fit(
    x_fake, y_fake,
    batch_size = 500,
    epochs = transfer_epochs,
    validation_data = list(xy$x_val, xy$y_val),
    shuffle = TRUE
)

png(file=sprintf("output/iter_%d_pre.png", i), width=1200, height=800)
    plot(hist_nm_pre)
    Sys.sleep(2)
dev.off()

我应该以其他方式导出这些地块吗？还是这是一个更遥远的错误？