Turn Ggplot into a Pipe Operated Machine

ggplot-pipe.R

`%>%` <- function(lhs, rhs) UseMethod("%>%")
`%>%.default` <- magrittr::`%>%`
`%>%.gg` <- function(lhs, rhs) ggplot2:::`+.gg`(lhs, rhs)

# WARNING: IF YOU DO THE FOLLOWING YOU SHOULD PROBABLY EXIT AND
# RESTART YOUR R SESSION SO THAT MAGRITTR IS RESTORED TO ITS
# ORIGINAL STATE.

assignInNamespace("is_pipe", 
  function (pipe) 
  {
      identical(pipe, quote(`%>%`)) || identical(pipe, quote(`%T>%`)) || 
          identical(pipe, quote(`%<>%`)) || identical(pipe, quote(`%$%`)) ||
          identical(pipe, quote(`%>%.default`))
  },
  "magrittr"
)

iris %>% ggplot() %>% geom_point(aes(x=Sepal.Width, y=Sepal.Length, color=Species))