Fill region between two loess-smoothed lines in R with ggplot Fill region between two loess-smoothed lines in R with ggplot r r