Merge pull request #16 from stscl/dev

update `spc` plot s3 method
stscl · Jan 23, 2025 · 2a2050c · 2a2050c
2 parents c0b38e0 + cfbd3d6
commit 2a2050c
Show file tree

Hide file tree

Showing 4 changed files with 3 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -34,7 +34,6 @@ Imports:
     magrittr,
     parallel,
     purrr,
-    RColorBrewer,
     sdsfun (>= 0.7.0),
     sf,
     tibble,

diff --git a/R/spc.R b/R/spc.R
@@ -99,8 +99,8 @@ plot.spc_result = \(x, style = c("network","matrix"), ...) {
            fig_g = ggplot2::ggplot(data = g,
                                    ggplot2::aes(x = yv, y = xv, fill = correlation)) +
              ggplot2::geom_tile(color = "white") +
-             ggplot2::scale_fill_gradientn(colors = RColorBrewer::brewer.pal(11, "RdBu"),
-                                           limits = range(g$correlation)) +
+             ggplot2::scale_fill_gradient2(low = "blue", mid = "gray",
+                                           high = "red", midpoint = 0) +
              ggplot2::geom_text(ggplot2::aes(label = round(correlation, 3)), color = "black") +
              ggplot2::labs(x = "Dependent Variable", y = "Independent Variable") +
              ggplot2::coord_equal() +

diff --git a/man/figures/cisp/plot_g2-1.png b/man/figures/cisp/plot_g2-1.png
diff --git a/vignettes/cisp.rmd b/vignettes/cisp.rmd
@@ -65,7 +65,7 @@ system.time({
   g = cisp::spc(ndvi,cores = 6)
 })
 ##    user  system elapsed 
-##    1.14    0.30   23.16
+##    0.84    0.20   21.50
 g
 ## ***   Spatial Pattern Correlation    
 ##