Try adding xlim(c(<lower_limit>, <upper_limit>)). From there, you can create another function to find where the 90th percentile (or another threshold) of your data lies - input that into your upper or lower limits.