Hi @Ness329,
Your dplyr pipe between lines 52 and 57 is incorrect; so its not surprising that the graph is not what you expect.
As mentioned in response to your earlier post, a screen-shot is NOT a reproducible example, and we cannot test your code by running it without a sample of the data. If your data are confidential, then just make some up to demonstrate the problem.
Please read this:
https://www.tidyverse.org/help/#reprex
HTH