ggplot2 query - facet wrapping, removal of legends and general formatting

It would be easier to help you out if you provide some sample data on a copy/paste friendly format. Could you ask this with a minimal REPRoducible EXample (reprex)? A reprex makes it much easier for others to understand your issue and figure out how to help.

If you've never heard of a reprex before, you might want to start by reading this FAQ: