exclude labels from aes_params

tidyverse · Jul 17, 2024 · 3f9f3e2 · 3f9f3e2
1 parent c679d43
commit 3f9f3e2
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/labels.R b/R/labels.R
@@ -24,9 +24,11 @@ setup_plot_labels <- function(plot, layers, data) {
  # Find labels from every layer
  for (i in seq_along(layers)) {
  layer <- layers[[i]]
+ exclude <- names(layer$aes_params)
  mapping <- layer$computed_mapping
  mapping <- strip_stage(mapping)
  mapping <- strip_dots(mapping, strip_pronoun = TRUE)
+ mapping <- mapping[setdiff(names(mapping), exclude)]
 
  # Acquire default labels
  mapping_default <- make_labels(mapping)