Adding a Nonlinear Line to a Stacked Bar Plot in R Using LOESS Regression