# NOT RUN {
# check that all letters and digits are nicely shaped:
new_alphabet <- createPolygons(c("f", "g", "W", "*"), font="Garamond")
library(ggplot2)
qplot(x,y, geom="polygon", data=new_alphabet, facets=~group)
# }
Run the code above in your browser using DataLab