I want to plot a dataset and then overlay a subset of the dataset in grey. I am using ggnewscale to col