Guangchuang YU https://guangchuangyu.github.io
School of Public Health, The University of Hong Kong
Install the hexSticker package via CRAN:
install.packages("hexSticker")You can also install the package via the Github repository.
# install.package("devtools") #In case you have not installed it.
devtools::install_github("GuangchuangYu/hexSticker")imageMagick is required for installing hexSticker. If you have not
installed it, please try the following
approachs.
In Mac OS, you may need to re-install sysfornt to properly load it.
Be sure to install xqartz first.
brew update && brew install homebrew/cask/xquartz
stickerfunction will produce a file with dimension exactly for printing according to http://hexb.in/sticker.html
library(hexSticker)
sticker(expression(plot(cars, cex=.5, cex.axis=.5, mgp=c(0,.3,0), xlab="", ylab="")),
package="hexSticker", p_size=8, s_x=1, s_y=.8, s_width=1.2, s_height=1,
filename="inst/figures/baseplot.png")
library(lattice)
counts <- c(18,17,15,20,10,20,25,13,12)
outcome <- gl(3,1,9)
treatment <- gl(3,3)
bwplot <- bwplot(counts ~ outcome | treatment, xlab=NULL, ylab=NULL, cex=.5,
scales=list(cex=.5), par.strip.text=list(cex=.5))
sticker(bwplot, package="hexSticker", p_size=8, s_x=1.05, s_y=.75, s_width=2, s_height=1.5,
h_fill="#f9690e", h_color="#f39c12", filename="inst/figures/lattice.png")
library(ggplot2)
p <- ggplot(aes(x = mpg, y = wt), data = mtcars) + geom_point()
p <- p + theme_void() + theme_transparent()
sticker(p, package="hexSticker", p_size=8, s_x=1, s_y=.75, s_width=1.3, s_height=1,
filename="inst/figures/ggplot2.png")
imgurl <- "http://www.belleamibengals.com/bengal_cat_2.png"
sticker(imgurl, package="hexSticker", p_size=8, s_x=1, s_y=.75, s_width=.6,
filename="inst/figures/imgfile.png")
If you use
hexStickerand want your sticker to be listed here, please feel free to edit README.Rmd.
Sticker designers can make their stickers available via Sticker Mule.