Subsetting ggplot data

I think we need to see the actual code and data.

See FAQ: How to do a minimal reproducible example ( reprex ) for beginners for some suggestions.