In preparation
> library(grid)
> plot(1,1,type='n'); grid.text("\u4F60\u597D") # chinese
> plot(1,1,type='n'); grid.text("\u25CB\u25D4\u25D1\u25D5\u25CF\u25CD") # circles
> plot(1,1,type='n'); grid.text("\u2639\u263A\u263C\u2640\u2642") # smiley, sun, male/female