inst/hexSticker.R

library(hexSticker)
#source("https://bioconductor.org/biocLite.R")
#biocLite("EBImage")
library(ggplot2)

p <- ggplot(aes(x = mpg, y = wt), data = mtcars) + geom_point()
p <- p + theme_void() + theme_transparent()

sticker(p, package="busulfansim", p_size=8, s_x=1, s_y=.75, s_width=1.3, s_height=1,
        filename="inst/busulfansim.png")
asancpt/busulfansim documentation built on May 31, 2019, 8:40 a.m.