gglayer: Add a geom to all plots

In statisticiansix/ggpipe: Enables ggplot2 to be used with pipes

Description

This function adds a geom to the plots contained within the column plot.

Usage

gglayer(.data, layer_use, ...)

Arguments

.data	Data frame with nested data column
layer_use	The ggplot2 geom that you want to add
...	Other arguments passed onto the geom specified in layer_use

Examples

eg <- mtcars %>%
  group_by(am) %>%
  nest('data'=-am)%>%
  mutate('colour'=ifelse(am==0,'red','purple'),
         'title'=sprintf('AM: %i',am),
         'subtitle'=sprintf('Data from %i different models',map_dbl(data,nrow)),
         'minlimit'=ifelse(am==0,-1000,-250),
         'maxlimit'=map_dbl(data,function(x)max(x$disp)))

out <- eg %>%
  ggpipe("data") %>%
  gglayer(geom_point,aes(x=disp,y=hp),colour=colour)%>%
  gglayer(scale_x_continuous,limits=c(minlimit,maxlimit))%>%
  gglayer(labs,title=title)%>%
  gglayer(facet_wrap,cyl~.)%>%
  ggtheme(theme_bw())

out$plot

statisticiansix/ggpipe documentation built on Dec. 9, 2019, 3:22 p.m.