Add support for multiple problematic aesthetics, fix NEWS.md addition

Author: clairemcwhite

NEWS.md

@@ -83,8 +83,6 @@ core developer team.
 
 * Clearer error messages for inappropriate aesthetics (@clairemcwhite, #3060).
 
-* `geom_rug()` gains an "outside" option to allow for moving the rug tassels to outside the plot area. (@njtierney, #3085)
-
 * ggplot2 no longer attaches any external packages when using functions that 
   depend on packages that are suggested but not imported by ggplot2. The 
   affected functions include `geom_hex()`, `stat_binhex()`, 

R/layer.r

@@ -232,8 +232,9 @@ Layer <- ggproto("Layer", NULL,
     nondata_cols <- check_nondata_cols(evaled)
     if (length(nondata_cols) > 0) {
       msg <- paste0(
-        "Aesthetics must be valid data columns. Problematic aesthetic(s): ", as_label(aesthetics[[nondata_cols]]),
-        ". Did you mistype the name of a data column or forget to add stat()?"
+        "Aesthetics must be valid data columns. Problematic aesthetic(s): ",
+        paste0(vapply(nondata_cols, function(x) {as_label(aesthetics[[x]])}, character(1)), collapse = ", "),
+        ". \nDid you mistype the name of a data column or forget to add stat()?"
       )
       stop(msg, call. = FALSE)
     }
@@ -294,8 +295,9 @@ Layer <- ggproto("Layer", NULL,
     nondata_stat_cols <- check_nondata_cols(stat_data)
     if (length(nondata_stat_cols) > 0) {
       msg <- paste0(
-        "Aesthetics must be valid computed stats. Problematic aesthetic(s): ", as_label(aesthetics[[nondata_stat_cols]]),
-        ". Did you map your stat in the wrong layer?"
+        "Aesthetics must be valid computed stats. Problematic aesthetic(s): ",
+        paste0(vapply(nondata_stat_cols, function(x) {as_label(aesthetics[[x]])}, character(1)), collapse = ", "),
+        ". \nDid you map your stat in the wrong layer?"
       )
       stop(msg, call. = FALSE)
     }