diff --git a/R/scale-discrete-.R b/R/scale-discrete-.R
index a5ff3289a4..adaebb96d7 100644
--- a/R/scale-discrete-.R
+++ b/R/scale-discrete-.R
@@ -153,6 +153,9 @@ ScaleDiscretePosition <- ggproto("ScaleDiscretePosition", ScaleDiscrete,
   },
 
   map = function(self, x, limits = self$get_limits()) {
+    if (inherits(x, "AsIs")) {
+      return(x)
+    }
     if (is.discrete(x)) {
       values <- self$palette(length(limits))
       if (!is.numeric(values)) {