ggpacket-class: A class for wrapping ggplot layers.

Description Slots Author(s) Examples

Description

ggplot ggproto objects can not be added together as they are and must be made reusable by first adding to a list. This class aggregates ggproto objects into a list and handles adding into a ggplot construction.

Slots

ggcalls

a list of ggproto layer objects

Author(s)

Doug Kelkhoff [email protected]

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
library(ggplot2)

# a ggpacket can be created as an object by not passing arguments
# to the ggpack function. Any ggproto layers or ggpack'd ggpacket
# layers can be added directly
bar_error_counts <- ggpacket() +
  stat_summary(fun.y = mean, geom = 'bar') +
  stat_summary(fun.data = mean_se, width = 0.2, geom = "errorbar") +
  stat_summary(fun.data = function(d) c(
                 y = mean(d) + sd(d)/sqrt(length(d)),
                 label = length(d)),
               vjust = -1, geom = 'text')

ggplot(mtcars, aes(x = gear, y = mpg)) +
  bar_error_counts

# easier functionalization of subcomponents of a ggplot
custom_errorbars <- function(error_function, ...) {
  ggpack(stat_summary, prefix = 'bar', args = substitute(...()),
         fun.y = mean, geom = 'bar') +
  ggpack(stat_summary, prefix = 'errorbar', args = substitute(...()),
         fun.data = error_function, width = 0.2, geom = "errorbar")
}

ggplot(mtcars, aes(x = gear, y = mpg)) +
  custom_errorbars(mean_se, bar.fill = gear) +
  facet_grid(. ~ am, scales = 'free')

lengning/gClinBiomarker documentation built on May 9, 2019, 2:55 p.m.