Merge pull request #22 from pepijn-devries/work-in-progress

Work in progress

Author: pepijn-devries

.Rbuildignore

@@ -4,6 +4,7 @@
 ^README\.Rmd$
 ^data-raw$
 ^doc$
+^gallery$
 ^Meta$
 ^man-roxygen$
 ^_pkgdown\.yml$

.gitignore

@@ -5,6 +5,5 @@
 inst/doc
 /doc/
 /Meta/
-/pkgdown/
 /docs/
 docs

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: ggsankeyfier
 Type: Package
 Title: Create Sankey and Alluvial Diagrams Using 'ggplot2'
-Version: 0.1.8.0005
+Version: 0.1.8.0006
 Authors@R: c(person("Pepijn", "de Vries", role = c("aut", "cre", "dtc"),
     email = "pepijn.devries@outlook.com",
     comment = c(ORCID = "0000-0002-7961-6646")),
@@ -27,7 +27,7 @@ Depends:
     R (>= 4.1.0)
 Imports:
     dplyr,
-    ggplot2 (>= 3.5.0),
+    ggplot2 (>= 3.4.4),
     grid (>= 4.1.0),
     gridBezier,
     methods,

NEWS.md

@@ -1,4 +1,4 @@
-ggsankeyfier v0.1.8.0005
+ggsankeyfier v0.1.8.0006
 -------------
 
  * Added check workflow

gallery/gallery.r

@@ -0,0 +1,30 @@
+library(ggplot2)
+library(ggsankeyfier)
+theme_set(theme_light())
+
+es_sub <-
+  ecosystem_services |>
+  subset(RCSES > 0.005) |>
+  pivot_stages_longer(c("activity_realm", "biotic_realm", "service_section"),
+                      "RCSES", "service_section")
+
+pos     <- position_sankey(v_space = "auto", order = "ascending", align = "justify")
+pos_txt <- position_sankey(v_space = "auto", order = "ascending", align = "justify",
+                           nudge_x = -.1)
+
+p <-
+  ggplot(
+    data    = es_sub,
+    mapping = aes(x = stage, y = RCSES, group = node,
+                  edge_id = edge_id, connector = connector)) +
+  geom_sankeyedge(aes(fill = RCSES), position = pos) +
+  geom_sankeynode(position = pos) +
+  scale_fill_viridis_c(option = "turbo") +
+  geom_text(aes(label = node), stat = "sankeynode", pos = pos_txt,
+            hjust = 1, angle = -30, cex = 2.5) +
+  scale_x_discrete(expand = expansion(add = c(0.65, 0.15))) +
+  scale_y_continuous(expand = expansion(add = c(0.15, 0.15))) +
+  labs(fill = "risk\nlevel", y = "risk level")
+
+ggsave("gallery/pepijn-devries-ggsankeyfier.png", print(p), width = 350, height = 300, units = "px",
+       dpi = 60)