Make sure factors are ordered correctlyįacetable <- ame ( Face = factor ( c ( "plain", "bold", "italic", "alic" ), levels = c ( "plain", "bold", "italic", "bold. ' ) fonttable $ pos <- 1 : nrow ( fonttable ) library ( reshape2 ) fonttable <- melt ( fonttable, id.vars = "pos", measure.vars = c ( "Short", "Canonical" ), variable.name = "NameType", value.name = "Font" ) # Make a table of faces. Fonts List of fonts for your creative project (scroll or view PDF) On this page: fonts (screenshots) fonts (text list) dingbats (dingbats, wingdings, webdings & bullets) Ive found that everytime I need to start a design project, it helps to have a list of fonts in front of me so I dont have to try various ones (very time-consuming). Fonttable <- read.table ( header = TRUE, sep = ",", stringsAsFactors = FALSE, text = ' Classic Font English Franais Espaol Deutsch Italiano Portugus.