Hello.
Thanks for providing code , but you could take further steps to make it more convenient for other forum users to help you.
Share some representative data that will enable your code to run and show the problematic behaviour.
You might use tools such as the library datapasta, or the base function dput() to share a portion of data in code form, i.e. that can be copied from forum and pasted to R session.
I also note that you can omit code that is a prelude to setting up your problem, by just providing a representation of the object(s) they resulted in, if this is more convenient, this should be assessed on a case by case basis. Certainly if your issue relates to inability to plot; there doesnt seem to be a reason to include further code after that to save the plot, as presumably this isnt part of your problem requiring of a solution.
Try to reduce what you share as much as possible, while making it runnable by forum users (as per the guide) .
Good luck !