showcase after_stat functionality

Author: LKremer

man/figures/make_demo_plots.qmd

@@ -121,6 +121,28 @@ ggsave(here("man/figures/pointdensity_adj.png"),
        width = 18, height = 6, units = "cm", dpi = 300)
 ```
 
+```{r}
+p_neigh <- dat %>%
+  ggplot(aes(x = x, y = y)) +
+  geom_pointdensity(method = "neighbors", size = .3) +
+  scale_color_viridis() +
+  labs(title="method = \"neighbors\"") +
+  theme(plot.title = element_text(hjust = 0.5))
+
+p_kde <- dat %>%
+  ggplot(aes(x = x, y = y)) +
+  geom_pointdensity(method = "kde2d", size = .3) +
+  scale_color_viridis() +
+  labs(title="method = \"kde2d\"") +
+  theme(plot.title = element_text(hjust = 0.5))
+
+p_neigh + p_kde
+ggsave(here("man/figures/pointdensity_methods.png"),
+       scale = 1.3,
+       width = 18, height = 6, units = "cm", dpi = 300)
+```
+
+
 Not sure why anyone would do this, but you can use separate bandwidths for x and y:
 ```{r}
 dat %>%
@@ -150,6 +172,20 @@ ggsave(here("man/figures/pointdensity_facet.png"),
        width = 14, height = 7, units = "cm", dpi = 300)
 ```
 
+```{r}
+dat %>%
+  ggplot( aes( x = x, y = y, after_stat(ndensity))) +
+  geom_pointdensity( size = .25) +
+  scale_color_viridis() +
+  facet_wrap( ~ group) +
+  labs(title="facet_wrap( ~ group)") +
+  theme(plot.title = element_text(hjust = 0.5))
+
+ggsave(here("man/figures/pointdensity_facet_relative.png"),
+       scale = 1.3,
+       width = 14, height = 7, units = "cm", dpi = 300)
+```
+
 x- and ylim work as expected:
 ```{r}
 plim <- dat %>%
@@ -210,6 +246,19 @@ ggsave(here("man/figures/pointdensity_custom.png"),
 ```
 
 
+```{r}
+dat %>%
+  ggplot(aes(x = x, y = y, color = after_stat(density / max(density)))) +
+  geom_pointdensity(method = "neighbors", size = .3) +
+  scale_color_viridis() +
+  theme(plot.title = element_text(hjust = 0.5)) +
+  labs(color = "relative\ndensity")
+
+ggsave(here("man/figures/pointdensity_relative.png"),
+       scale = 1.3,
+       width = 10, height = 7, units = "cm", dpi = 300)
+```
+
 
 ```{r}
 date()