Molecule in GGPlot Via SVG

molt-to-svg.R

library(dplyr)
library(depict)
library(grid)
library(ggplot2)
library(svgparser)

# SVG code to make background box transparent
my_css = '
rect {
  fill: none;
  fill-opacity: 50%;
}
'

mgrd <- depiction() %>% 
  depict::set_zoom(3) %>%
  depict(parse_smiles("B([C@H](CC(C)C)NC(=O)[C@H](CC1=CC=CC=C1)NC(=O)C2=NC=CN=C2)(O)O")) 


img_grob <- svgparser::read_svg(
  mgrd$toSvgStr(),
  user_css = my_css
)


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