Annotating ggplot2 with SVG

library(grid)
library(ggplot2)
library(svgparser)

Load SVG from web

Since {svgparser} uses {xml2}, it can load SVG files from a URL.

Note the linear gradient on the R logo is preserved in the conversion to an R grob object.

rlogo_url <- 'https://www.r-project.org/logo/Rlogo.svg'
rlogo     <- svgparser::read_svg(rlogo_url)

grid.draw(rlogo)

Add ‘grob’ to ggplot2 with `annotation_custom()`

ggplot(mtcars) + 
  geom_point(aes(mpg, wt)) +
  annotation_custom(rlogo, xmin = 28, xmax = 33, ymin = 4, ymax = 5) +
  labs(title = "svgparser::read_svg() + ggplot2") + 
  theme_bw()

- Load SVG from web
- Add ‘grob’ to ggplot2 with annotation_custom()