Fix discrete map bug (#5624)

* map all-NA values

* add test

* add news bullet

* move bullet

Author: teunbrand

NEWS.md

@@ -1,5 +1,9 @@
+
 # ggplot2 (development version)
 
+* Fixed bug where discrete scales could not map aesthetics only consisting of
+  `NA`s (#5623)
+
 # ggplot2 3.5.0
 
 This is a minor release that turned out quite beefy. It is focused on 

R/scale-.R

@@ -938,6 +938,9 @@ ScaleDiscrete <- ggproto("ScaleDiscrete", Scale,
 
   map = function(self, x, limits = self$get_limits()) {
     n <- sum(!is.na(limits))
+    if (n < 1) {
+      return(rep(self$na.value, length(x)))
+    }
     if (!is.null(self$n.breaks.cache) && self$n.breaks.cache == n) {
       pal <- self$palette.cache
     } else {

tests/testthat/test-scales.R

@@ -716,3 +716,17 @@ test_that("Using `scale_name` prompts deprecation message", {
   expect_snapshot_warning(binned_scale("x",     "foobar", pal_identity()))
 
 })
+
+# From #5623
+test_that("Discrete scales with only NAs return `na.value`", {
+
+  x <- c(NA, NA)
+
+  sc <- scale_colour_discrete(na.value = "red")
+  sc$train(x)
+  expect_equal(sc$map(x), c("red", "red"))
+
+  sc <- scale_shape(na.value = NA_real_)
+  sc$train(x)
+  expect_equal(sc$map(x), c(NA_real_, NA_real_))
+})