Write a ggtitle & facet_wrap based on variable

Please see the FAQ: What's a reproducible example (`reprex`) and how do I do one? Using a reprex, complete with representative data will attract quicker and more answers.

It really is very hard to reverse-engineer the problem, and most people who might be able to provide answers might not take the trouble