add.legend: Add Legend to gg.gap()

In ChrisLou-bioinfo/gg.gap: Define Segments in y-Axis for 'ggplot2'

Description

Add legend to gg.gap().

Usage

add.legend(plot, margin = c(top = 200, right = 200, bottom = 200, left =
  200))

Arguments

plot	A 'ggplot2' plot.
margin	Margins around the text.

Value

A legend-added picture

Examples

library(ggplot2)
mtcars$gear <- factor(mtcars$gear)
bp <- ggplot(data = mtcars, aes(x = gear, fill = gear)) +
    geom_bar() +
    ggtitle("Number of Cars by Gear") +
    xlab("Gears")
gg.gap(plot = bp,
       ylim = c(0,16),
       segments = c(6,8))
add.legend(plot = bp,
           margin = c(top=1,right=1,bottom=1,left=460))

ChrisLou-bioinfo/gg.gap documentation built on Oct. 30, 2019, 5:41 a.m.