lemon

.dot(x, root = getwd(), mustExist = FALSE, relative = FALSE, create = TRUE) .dot2(names, quiet = FALSE, ...)

.data <- .dot('data', create=FALSE) .data('input.txt') .data(c('a.txt','b.txt')) .dot2(c('rawdata','results'), create=FALSE) .rawdata('rawfile.csv') .results('myresults.txt')

annotate_y_axis( label, y, side = waiver(), print_label = TRUE, print_value = TRUE, print_both = TRUE, parsed = FALSE, ... ) annotate_x_axis( label, x, side = waiver(), print_label = TRUE, print_value = TRUE, print_both = TRUE, parsed = FALSE, ... )

library(ggplot2) p <- ggplot(mtcars, aes(mpg, hp, colour=disp)) + geom_point() l <- p + annotate_y_axis('mark at', y=200, tick=TRUE) l (l + annotate_x_axis('| good economy ->', x=25, print_value=FALSE, hjust=0, tick=TRUE)) l + annotate_y_axis("x^2 == .(y)", y=150, parsed=FALSE, tick=FALSE) + annotate_y_axis("x^2 + bar(x) == .(y)", y=mean(mtcars$hp), parsed=TRUE, tick=TRUE) l + annotate_y_axis("bar(x) == .(y)", y = mean(mtcars$hp), parsed=TRUE, tick=FALSE) # use double equal signs, or the output becomes '=(...)' for some reason. l + annotate_y_axis('this is midway', y=sum(range(mtcars$hp))/2, print_value = FALSE, side='left') # work around if an axis only contains parsed expressions p + annotate_y_axis("bar(x) == .(y)", y = mean(mtcars$hp), parsed=TRUE, tick=FALSE) + annotate_y_axis("some long string", y=100, tick=FALSE, print_value=FALSE, colour=NA) # Works together with other functions p <- p + theme_light() + theme(panel.border=element_blank(), axis.line = element_line(), axis.ticks = element_line(colour='black')) p + coord_capped_cart(bottom='right') + annotate_y_axis('More than I afford', y=125, print_value=FALSE, tick=TRUE)

as.lemon_plot(plot) ggplot_buildlemon_plot(plot, ...) ggplot_gtablebuilt_lemon(data)

brackets_horizontal( direction = c("up", "down"), length = unit(0.05, "npc"), tick.length = waiver() ) brackets_vertical( direction = c("left", "right"), length = unit(0.05, "npc"), tick.length = waiver() )

library(ggplot2) p <- ggplot(mpg, aes(as.factor(cyl), hwy, colour=class)) + geom_point(position=position_jitter(width=0.3)) + theme_bw() + theme(panel.border = element_blank(), axis.line = element_line()) p p <- p + coord_flex_cart(bottom=brackets_horizontal(length=unit(0.08, 'npc'))) p # However getting the correct width is a matter of tweaking either length or # position_jitter... # A further adjustment, p + theme(panel.grid.major.x = element_blank())

coord_capped_cart( xlim = NULL, ylim = NULL, expand = TRUE, top = waiver(), left = waiver(), bottom = waiver(), right = waiver(), gap = 0.01 ) coord_capped_flip( xlim = NULL, ylim = NULL, expand = TRUE, top = waiver(), left = waiver(), bottom = waiver(), right = waiver(), gap = 0.01 ) capped_horizontal(capped = c("both", "left", "right", "none"), gap = 0.01) capped_vertical(capped = c("top", "bottom", "both", "none"), gap = 0.01)

library(ggplot2) # Notice how the axis lines of the following plot meet in the lower-left corner. p <- ggplot(mtcars, aes(x = mpg)) + geom_dotplot() + theme_bw() + theme(panel.border=element_blank(), axis.line=element_line()) p # We can introduce a gap by capping the ends: p + coord_capped_cart(bottom='none', left='none') # The lower limit on the y-axis is 0. We can cap the line to this value. # Notice how the x-axis line extends through the plot when we no long # define its capping. p + coord_capped_cart(left='both') # It it also works on the flipped. p + coord_capped_flip(bottom='both') # And on secondary axis, in conjuction with brackets: p + scale_y_continuous(sec.axis = sec_axis(~.*100)) + scale_x_continuous(sec.axis = sec_axis(~1/., name='Madness scale')) + coord_capped_cart(bottom='none', left='none', right='both', top=brackets_horizontal()) # Although we cannot recommend the above madness.

coord_flex_cart( xlim = NULL, ylim = NULL, expand = TRUE, top = waiver(), left = waiver(), bottom = waiver(), right = waiver() ) coord_flex_flip( xlim = NULL, ylim = NULL, expand = TRUE, top = waiver(), left = waiver(), bottom = waiver(), right = waiver() ) coord_flex_fixed( ratio = 1, xlim = NULL, ylim = NULL, expand = TRUE, top = waiver(), left = waiver(), bottom = waiver(), right = waiver() )

library(ggplot2) # A standard plot p <- ggplot(mtcars, aes(disp, wt)) + geom_point() + geom_smooth() + theme(panel.border=element_blank(), axis.line=element_line()) # We desire that left axis does not extend beyond '6' # and the x-axis is unaffected p + coord_capped_cart(left='top') # Specifying 'bottom' caps the axis with at most the length of 'gap' p + coord_capped_cart(left='top', bottom='none') # We can specify a ridiculus large 'gap', but the lines will always # protrude to the outer most ticks. p + coord_capped_cart(left='top', bottom='none', gap=2) # We can use 'capped_horizontal' and 'capped_vertical' to specify for # each axis individually. p + coord_capped_cart(left='top', bottom=capped_horizontal('none', gap=2)) # At this point we might as well drop using the short-hand and go full on: p + coord_flex_cart(left=brackets_vertical(), bottom=capped_horizontal('left')) # Also works with secondary axes: p + scale_y_continuous(sec.axis=sec_axis(~5*., name='wt times 5')) + coord_flex_cart(left=brackets_vertical(), bottom=capped_horizontal('right'), right=capped_vertical('both', gap=0.02)) # Supports the usual 'coord_fixed': p + coord_flex_fixed(ratio=1.2, bottom=capped_horizontal('right')) # and coord_flip: p + coord_flex_flip(ylim=c(2,5), bottom=capped_horizontal('right'))

facet_rep_grid(..., repeat.tick.labels = FALSE) facet_rep_wrap(..., scales = "fixed", repeat.tick.labels = FALSE)

g_legend(a.gplot)

library(ggplot2) library(gtable) library(grid) library(gridExtra) library(gtable) dsamp <- diamonds[sample(nrow(diamonds), 1000), ] (d <- ggplot(dsamp, aes(carat, price)) + geom_point(aes(colour = clarity)) + theme(legend.position='bottom')) legend <- g_legend(d) grid.newpage() grid.draw(legend) (d2 <- ggplot(dsamp, aes(x=carat, fill=clarity)) + geom_histogram(binwidth=0.1) + theme(legend.position='bottom')) grid.arrange(d + theme(legend.position='hidden'), d2 + theme(legend.position='hidden'), bottom=legend$grobs[[1]]) # Above fails with more than one guide legend2 <- gtable_filter(ggplotGrob(d), 'guide-box') grid.arrange(d + theme(legend.position='hidden'), d2 + theme(legend.position='hidden'), bottom=legend2$grobs[[1]]$grobs[[1]]) # Above fails with more than one guide

geom_pointpath( mapping = NULL, data = NULL, stat = "identity", position = "identity", na.rm = FALSE, show.legend = NA, inherit.aes = TRUE, distance = unit(3, "pt"), shorten = 0.5, threshold = 0.1, lineend = "butt", linejoin = "round", linemitre = 1, linesize = 0.5, linecolour = waiver(), linecolor = waiver(), arrow = NULL, ... ) geom_pointline( mapping = NULL, data = NULL, stat = "identity", position = "identity", na.rm = FALSE, show.legend = NA, inherit.aes = TRUE, distance = unit(3, "pt"), shorten = 0.5, threshold = 0.1, lineend = "butt", linejoin = "round", linemitre = 1, linesize = 0.5, linecolour = waiver(), linecolor = waiver(), arrow = NULL, ... ) geom_pointrangeline( mapping = NULL, data = NULL, stat = "identity", position = "identity", na.rm = FALSE, show.legend = NA, inherit.aes = TRUE, distance = unit(3, "pt"), lineend = "butt", linejoin = "round", linemitre = 1, linesize = 0.5, linecolour = waiver(), linecolor = waiver(), arrow = NULL, ... )

# geom_point examples library(ggplot2) p <- ggplot(mtcars, aes(wt, mpg)) p + geom_point() + geom_line() p + geom_pointline() p + geom_pointline(linecolour='brown') p + geom_pointpath() # Add aesthetic mappings p + geom_pointline(aes(colour = factor(cyl))) # Using linecolour preserved groups. p + geom_pointline(aes(colour = factor(cyl)), linecolour='brown') ## If you want to combine the pretty lines of pointline that do *not* respect ## grouping (or order), combine several layers with geom_point on top: p + geom_pointline() + geom_point(aes(colour=factor(cyl))) # Change scales p + geom_pointline(aes(colour = cyl)) + scale_colour_gradient(low = "blue") p + geom_pointline(aes(colour = cyl), linecolour='black') + scale_colour_gradient(low = "blue") p + geom_pointline(aes(shape = factor(cyl))) + scale_shape(solid = FALSE) # For shapes that have a border (like 21), you can colour the inside and # outside separately. Use the stroke aesthetic to modify the width of the # border ggplot(mtcars, aes(wt, mpg)) + geom_pointline(shape = 21, colour = "black", fill = "white", size = 5, stroke = 5, distance = unit(10, 'pt')) ## Another example df <- data.frame(x=rep(c('orange','apple','pear'), each=3), b=rep(c('red','green','purple'), times=3), y=runif(9)) ggplot(df, aes(x=x, y=y, colour=b, group=b)) + geom_pointline(linesize=1, size=2, distance=6) + theme_bw() # geom_pointline() is suitable for time series ggplot(economics, aes(date, unemploy)) + geom_pointline() ggplot(economics_long, aes(date, value01, colour = variable)) + geom_pointline()

geom_siderange( mapping = NULL, data = NULL, stat = "identity", position = "identity", ..., distance = 3, arrow = NULL, lineend = "butt", sides = "bl", start = NA, end = NA, na.rm = FALSE, show.legend = NA, inherit.aes = TRUE )

library(ggplot2) x <- rnorm(25) df <- data.frame(x=x, y=x+rnorm(25, sd=0.2), a=sample(c('horse','goat'), 25, replace=TRUE), stringsAsFactors = FALSE) df$y <- with(df, ifelse(y > 1 & a=='horse', 1, y)) (p <- ggplot(df, aes(x=x, y=y, colour=a)) + geom_point(shape=1)) p + geom_siderange(start=19) # Capping the sideranges with different symbols: p + geom_siderange(start=19, end=22, fill='black', sides='b') + geom_siderange(sides='tl') # It also works with facets p <- ggplot(mpg, aes(displ, hwy, colour=fl)) + geom_point() + facet_wrap(~class, nrow = 4) p + geom_siderange()

get_panel_y_range(layout, index = 1) get_panel_x_range(layout, index = 1) get_panel_params(layout, index = 1)

grid_arrange_shared_legend( ..., ncol = length(list(...)), nrow = 1, position = c("bottom", "right", "top", "left"), plot = TRUE )

library(ggplot2) dsamp <- diamonds[sample(nrow(diamonds), 300), ] p1 <- qplot(carat, price, data = dsamp, colour = clarity) p2 <- qplot(cut, price, data = dsamp, colour = clarity) p3 <- qplot(color, price, data = dsamp, colour = clarity) p4 <- qplot(depth, price, data = dsamp, colour = clarity) grid_arrange_shared_legend(p1, p2, p3, p4, ncol = 4, nrow = 1) grid_arrange_shared_legend(p1, p2, p3, p4, ncol = 2, nrow = 2) # Passing on plots in a grob are not touched grid_arrange_shared_legend(p1, gridExtra::arrangeGrob(p2, p3, p4, ncol=3), ncol=1, nrow=2) # We can also pass on named arguments to arrangeGrob: title <- grid::textGrob('This is grob', gp=grid::gpar(fontsize=14, fontface='bold')) nt <- theme(legend.position='none') grid_arrange_shared_legend(p1, gridExtra::arrangeGrob(p2+nt, p3+nt, p4+nt, ncol=3), ncol=1, nrow=2, top=title)

gtable_show_grill(x, plot = TRUE) gtable_show_names( x, plot = TRUE, rect.gp = grid::gpar(col = "black", fill = "white", alpha = 1/4) )

library(ggplot2) library(gtable) library(grid) p <- ggplot(mtcars, aes(wt, mpg)) + geom_point() gtable_show_grill(p) library(ggplot2) library(gtable) library(grid) p <- ggplot(mtcars, aes(wt, mpg)) + geom_point() gtable_show_names(p)

guidebox_as_column(legend, which.legend = 1, add.title = FALSE)

library(ggplot2) p <- ggplot(diamonds, aes(x=x, y=y, colour=cut)) + geom_point() guidebox_as_column(p) p <- p + guides(colour=guide_legend(ncol=2, byrow=TRUE)) guidebox_as_column(p)

is.small(x)

https://github.com/stefanedwards/lemon

lemon_print(x, options, ...) lemon_printdata.frame(x, options, ...) lemon_printtable(x, options, ...)

remove_labels_from_axis(axisgrob, direction = c("horizontal", "vertical"))

render_gpar(theme, element, ...)

reposition_legend( aplot, position = NULL, legend = NULL, panel = "panel", x = NULL, y = NULL, just = NULL, name = "guide-box", clip = "on", offset = c(0, 0), z = Inf, plot = TRUE )

library(ggplot2) dsamp <- diamonds[sample(nrow(diamonds), 1000), ] (d <- ggplot(dsamp, aes(carat, price)) + geom_point(aes(colour = clarity))) reposition_legend(d + theme(legend.position='bottom'), 'bottom right') # To change the orientation of the legend, use theme's descriptors. reposition_legend(d + theme(legend.position='bottom'), 'top left') # Use odd specifications, here offset the legend with half its height from the bottom. reposition_legend(d + theme(legend.position='bottom'), x=0.3, y=0, just=c(0, -0.5)) # For using with facets (panel name may vary depending on ggplot2 version): try(reposition_legend(d + facet_grid(.~cut), 'top left', panel = 'panel-5-1')) try(reposition_legend(d + facet_grid(.~cut), 'top left', panel = 'panel-1-5'))

scale_x_symmetric(mid = 0, ...) scale_y_symmetric(mid = 0, ...)

library(ggplot2) df <- expand.grid(a=c(-1,0,1), b=c(-1,0,1)) rnorm2 <- function(x,y,n,sdx,sdy) if (missing(sdy)) sdy <- sdx data.frame(a=x,b=y,x=rnorm(n,x,sdx), y=rnorm(n,y,sdy)) df <- mapply(rnorm2,df$a, df$b, MoreArgs=list(n=30,sdx=1),SIMPLIFY=FALSE) df <- do.call(rbind, df) (p <- ggplot(df, aes(x=x,y=y)) + geom_point() + facet_grid(a~b, scales='free_x') ) p + scale_x_symmetric(mid=0)

waiver() is.waive(x) a %|W|% b a %||% b guide_axis(at, labels, position = "right", theme, label_element, gp_df)