library(figpatch)
library(ggplot2)
# Attach the fig image file
image <- system.file("extdata", "fig.png", package = "figpatch", mustWork = TRUE)
# Read in the image as a 'fig'
img <- fig(image)
# multiple figs
figs <- lapply(1:9, function(x) img)
# wrap the figs
fig_wrap(figs)
# Wrap the figs and auto-tag
fig_wrap(figs, tag = "A", suffix = ")")
# Wrap figs, auto-tag and adds border.
fig_wrap(figs, tag = 1, prefix = "(", suffix = ")", b_col = "black")
Run the code above in your browser using DataLab