use coord_sf for y-rev

Author: HelenaLC

R/class.R

@@ -14,7 +14,6 @@
 #'   For \code{Shape/PointFrame}s, an \code{arrow} Table or derivative.
 #' @param zattrs \code{Zattrs} objects; used to represent .zattrs.
 #' @param metadata (option) list of free-form extra data.
-#' @param x \code{SpatialData} object.
 #' @param ... ignored.
 #' 
 #' @return \code{SpatialData}

R/plot-image.R

@@ -59,7 +59,7 @@ sd_plot_image <- \(x, i=1, c=NULL, ch=NULL, cl=NULL, k=NULL, w=800, h=800) {
         scale_color_identity(NULL, guide="legend", labels=names(pal)),
         geom_point(aes(col=.data$foo), data.frame(foo=pal), x=0, y=0, alpha=0))
     list(lgd,
-        scale_x_continuous(limits=w), scale_y_reverse(limits=rev(h)),
+        scale_x_continuous(limits=w), scale_y_continuous(limits=h),
         annotation_raster(a, w[2],w[1], h[2],h[1], interpolate=FALSE))
 }
 

R/plot-label.R

@@ -45,6 +45,6 @@ sd_plot_label <- \(x, i=1, c=NULL, alpha=1, k=NULL, w=800, h=800) {
     w <- c(0, dim(la)[2])
     h <- c(0, dim(la)[1])
     list(
-        scale_x_continuous(limits=w), scale_y_reverse(limits=rev(h)),
-        annotation_raster(a, w[2],w[1], h[1],h[2], interpolate=FALSE))
+        scale_x_continuous(limits=w), scale_y_continuous(limits=h),
+        annotation_raster(a, w[2],w[1], h[2],h[1], interpolate=FALSE))
 }

R/plot.R

@@ -24,8 +24,8 @@
 #' @import ggplot2 
 #' @export
 sd_plot <- \() ggplot() + 
-    scale_y_reverse() +
-    coord_equal() + 
+    #coord_sf(reverse="y") +
+    #coord_equal() + 
     theme_bw() + theme(
         panel.grid=element_blank(),
         legend.key=element_blank(),

man/SpatialData.Rd

@@ -153,15 +153,17 @@ invisible(CTpath(y, j))
 ```{r fig.width=8, fig.height=8}
 sd_plot() + sd_plot_image(x) +
 sd_plot() + sd_plot_point(x, c="x") +
-sd_plot() + sd_plot_shape(x, 3) + # TODO: no y-rev?
+sd_plot() + sd_plot_shape(x, 3) +
 sd_plot() + sd_plot_label(x, c=c("lavender", "blue"))
 ```
 
 ```{r fig.width=4, fig.height=4}
 sd_plot() + 
+  coord_sf(reverse="y") +
   sd_plot_image(x) +
   sd_plot_label(x, c=rainbow(10), alpha=2/3) +
-  sd_plot_point(x, c="yellow") 
+  sd_plot_shape(x, 3, fill="black", linewidth=1) +
+  sd_plot_point(x, c="yellow", size=1/3)
 ```
 
 # Session info