facet_strata() and facet_sample() could perhaps provide better facet labels

[njtierney]

This would mean that we get information about which percentile they are a part of (e.g., 1st Percentile {var}), or state something like "Sample 1" instead of just giving them numbers 1 through to n_strata.