implement one part of #288; turn the plot for soap film smooths into …

…an isotropic one
gavinsimpson · Jun 28, 2024 · 4ce504b · 4ce504b
1 parent a0274c1
commit 4ce504b
Show file tree

Hide file tree

Showing 4 changed files with 540 additions and 520 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -454,6 +454,7 @@ importFrom(ggokabeito,scale_colour_okabe_ito)
 importFrom(ggokabeito,scale_fill_okabe_ito)
 importFrom(ggplot2,aes)
 importFrom(ggplot2,coord_equal)
+importFrom(ggplot2,coord_fixed)
 importFrom(ggplot2,coord_sf)
 importFrom(ggplot2,expand_limits)
 importFrom(ggplot2,facet_grid)

diff --git a/R/smooth-estimates.R b/R/smooth-estimates.R
@@ -2545,7 +2545,7 @@
 
 #' @importFrom ggplot2 ggplot geom_point geom_raster geom_contour
 #'   expand_limits labs guides guide_colourbar theme guide_axis geom_line
-#'   geom_path scale_fill_distiller
+#'   geom_path scale_fill_distiller coord_fixed
 #' @importFrom grid unit
 #' @importFrom rlang .data
 #' @keywords internal
@@ -2601,7 +2601,8 @@
     x = .data[[variables[1]]],
     y = .data[[variables[2]]]
   )) +
-    geom_raster(mapping = aes(fill = .data[[plot_var]]))
+    geom_raster(mapping = aes(fill = .data[[plot_var]])) +
+    coord_fixed(ratio = 1)
 
   if (isTRUE(contour)) {
     plt <- plt + geom_contour(