How can I plot bar plot the accuracy in r? I calculate the accuracy with confusion matrix

Question

How can I plot the bar plot the accuracy in r? My code in the below. I train the model with Neural Networks regression. I calculate the accuracy with confusion matrix, but I don