A selection of the glyphs from each of the vector fonts
lo <- utf8ToInt('a')
hi <- utf8ToInt('z')
txt <- intToUtf8(seq(lo, hi))
for (font_name in names(font_info$vector)) {
coords <- vector_text_coords(txt, font_name)
p <- ggplot(coords) +
geom_path(aes(x0, y0, group = stroke_idx)) +
facet_wrap(~char_idx, ncol = 9)+
theme_minimal(15) +
coord_equal() +
labs(title = font_name) +
theme(
strip.text = element_blank(),
axis.text = element_blank(),
axis.title = element_blank()
)
print(p)
}