Add translate_string_shape to GeomSf (#6039)

tidyverse · Aug 15, 2024 · ee5c9e5 · ee5c9e5
1 parent 308d4c3
commit ee5c9e5
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,6 @@
 # ggplot2 (development version)
 
+* geom_sf now accepts shape names (@sierrajohnson, #5808)
 * Added `gg` class to `labs()` (@phispu, #5553).
 * Missing values from discrete palettes are no longer translated 
  (@teunbrand, #5929).

diff --git a/R/geom-sf.R b/R/geom-sf.R
@@ -200,6 +200,9 @@ GeomSf <- ggproto("GeomSf", Geom,
  if (!inherits(coord, "CoordSf")) {
  cli::cli_abort("{.fn {snake_class(self)}} can only be used with {.fn coord_sf}.")
  }
+ if (is.character(data$shape)) {
+ data$shape <- translate_shape_string(data$shape)
+ }
 
  data <- coord$transform(data, panel_params)