Creating Density Plots and Polygon Functions in R for Multiple Groups