gggeom: Graphical Geometry

library(dplyr)
library(ggstat)
data("mpg", package = "ggplot2")

scatter_ex <- render_point(mpg, ~cty, ~hwy) %>% select(ends_with("_"))
scatter_ex %>% plot()
scatter_ex %>% geometry_jitter() %>% plot(col = "red")
scatter_ex %>% geometry_flip() %>% plot()
scatter_ex %>% geometry_reflect() %>% plot()
devtools::use_data(scatter_ex, overwrite = TRUE)

bar_ex <- render_bar(mpg, ~cyl, 1) %>% select(ends_with("_"))
bar_ex %>% plot()
bar_ex %>% geometry_stack() %>% plot()
bar_ex %>% geometry_stack() %>% geometry_flip() %>% plot()
bar_ex %>% geometry_flip() %>% geometry_stack("x") %>% plot()

devtools::use_data(bar_ex, overwrite = TRUE)


histogram_ex <- mpg %>%
  compute_bin(~hwy, width = 1) %>%
  render_rect(~xmin_, 0, ~xmax_, ~count_)
histogram_ex %>% plot()
histogram_ex %>% geometry_reflect("y") %>% plot()
devtools::use_data(histogram_ex, overwrite = TRUE)