ggsubplot: GGSUBPLOT

In TPeschel/hlpr4life: HELPER FOR LIFE

Description

gives the opportunity for subplots. it has nothing to do with ggplot exept of the fact, that it is build for ggplots. It is taken from R-Cookbook.

Usage

ggsubplot(..., plotlist = NULL, cols = 1, layout = NULL)

Arguments

...	end of list of ggplots
plotlist	end of list of ggplots
cols	count of columns
layout	matrix for the layout with indices of the plots

Value

subplots

Examples

hlpr4life::load.pkgs(c("hlpr4life","ggplot2","dplyr"))
(d<-data.frame(x=rnorm(1000,10),y=sample(letters[1:3],1000,T),s=sample(c("female","male"),1000,T)))
m<-summarise(group_by(d,y,s),m=mean(x))
ggsubplot(
  ggplot( d ) + theme_bw( ) + scale_color_discrete( guide = F ) +
    geom_point( aes( c( 1 : 1000 ), x, col = paste0( y, s ) ) ),
  ggplot( d ) +
    theme_bw( ) + scale_fill_discrete( guide = F ) + scale_color_discrete( guide = F ) +
    geom_histogram( aes( x, fill = paste0( y, s ) ), alpha = .5 ) +
    geom_vline( aes( xintercept = m, col = paste0( y, s ) ), m ) +
    facet_grid( s ~ y ),
  ggplot( d ) +
    theme_bw( ) + scale_fill_discrete( guide = F ) + scale_color_discrete( guide = F ) +
    geom_histogram( aes( x, fill = paste0( y, s ) ), alpha = .5 ) +
    geom_vline( aes( xintercept = m, col = paste0( y, s ) ), m ),
  layout = t(
    matrix(
      c(
        1, 2,
        3, 3 ),
      ncol = 2 ) ) )

TPeschel/hlpr4life documentation built on May 9, 2019, 2:25 p.m.