tl;dr What is the R code that takes the keras history form and produces not the tensorflow/keras plot shown below but the ggplot shown slightly farthe
