https://community.rstudio.com/t/why-cant-ggplot2-use/4372/7

pipable_ggplot2.R

library(ggplot2)
library(dplyr)

call_as_pipable <- function(g, ...) {
  # get the current function name as string
  fun_name <- deparse(match.call()[[1]])
  # remove "add_" and find the correspondent function
  fun <- get(gsub("^add_", "", fun_name),
             envir = asNamespace("ggplot2"))
  g + fun(...)
}

ggplot_funs <- ls(asNamespace("ggplot2"),
                  pattern = "^geom_|^stat_|^scale_|^coord_|^facet_|^theme_")
pipable_funs <- glue::glue("add_{ggplot_funs}")

purrr::walk(pipable_funs,
            assign, value = call_as_pipable, envir = .GlobalEnv)


# Usage ----------------------------------------------------------

ggplot(iris) %>%
  add_geom_point(aes(Sepal.Length, Sepal.Width)) %>%
  add_theme_minimal()