stacks$serif <- c("Satisfy", "serif") setSVGFonts(stacks) pdf(NULL, width=2, height=1) grid.text("hello", gp=gpar(fontfamily="serif")) svg <- grid.export(NULL)$svg dev.off() root <- XML::xmlRoot(svg, "svg:svg", namespaces=c(svg="http://www.w3.org/2000/svg")) url <- "url('https://fonts.googleapis.com/css?family=Satisfy');" styleNode <- XML::newXMLNode("style", attrs=c(type="text/css"), paste("@import", url)) invisible(XML::newXMLNode("defs", styleNode, parent=root)) XML::saveXML(root, "Figures/export-fonts.svg")