如何保存和加载keras历史记录对象，并在r中添加注释？

Question

在对keras进行训练和拟合之后，我们将历史记录作为““ keras_training_history”对象，当用plot(history)对其进行绘制时，我们将得到一个ggplot对象。

我想寻求建议。

1. 如何使用save_model_hdf5或load_model_hdf5来保存和加载“ keras_training_object”到模型上？

2. 此外，我们可以使用

对其进行注释

p <- plot(history)

p <- p + annotate(geom = "text", x = 10, y = 0.5, label = "Annotation Here", col = "red")

我的问题是如何在特定位置添加特定文本，而不是重复它？

由于我不知道如何保存或加载它，因此很抱歉无法附加文件。

非常感谢。