R/char.in.plots.save.R

In John-R-Wallace/R-ToolBox: What the package does (short line)

# http://www.unicode.org/charts/
# http://www.unicode.org/charts/PDF/U2600.pdf


char.in.plots.save <- function(Cex=7)
{
  #   DATE WRITTEN:  11 August 1995
  #   AUTHOR:  John R. Wallace (jw@u.washington.edu)
  #   The symbols font needs to be in postion 3, the default.
  # plot(c(0, 1), c(0, 1), xlab = "This is Greek to me:            ", ylab = "Y", xaxt = "n", yaxt = "n", bty = "n")
  # par(new = T)

  plot(c(0, 1), c(0, 1), xlab = paste("                                      a b", ALL.ASCII[99], ALL.ASCII[100]), font = 5, ylab = "", type = "n")
  # plot(c(0, 1), c(0, 1), xlab="", ylab = "", type = "n")

  points(0.1, 0.5, pch = 19, cex = Cex)
  points(0.2, 0.5, pch = 20, cex = Cex)
  points(0.3, 0.5, pch = 21, cex = Cex)
  points(0.4, 0.5, pch = 149, cex = Cex)
  points(0.5, 0.5, pch = 176, cex = Cex)
  points(0.75, 0.75, pch = -0x2642, cex = 3)

  text(0.3, 0.8, paste("This circle is centered", ALL.ASCII[149]))
  text(0.5, 0.9, ALL.ASCII[149], cex = Cex)

  # Note: the 260 below is the octal of decimal 176; c.f. ALL.ASCII[176]. So the next two lines give the same result:
  text(0.3, 0.7, paste("This circle is not centered", ALL.ASCII[176]))
  # text(0.3, 0.7, "This circle is not centered  \260")

  title(paste("Extended Characters in Title: ", ALL.ASCII[167]))
 
  abline(v = 0.5, h = c(0.5, 0.9))
}



ALL.ASCII <- c("\001", "\002", "\003", "\004", "\005", "\006", "\007", "\b", "\t", "\n", "\013", "\014", "\r", "\016", "\017", "\020", "\021", "\022", 
 "\023", "\024", "\025", "\026", "\027", "\030", "\031", "\032", "\033", "\034", "\035", "\036", "\037", " ", "!", "\"", "#" ,"$",   
 "%" ,"&" ,"'" ,"(" ,")" ,"*" ,"+" ,"," ,"-" ,"." ,"/" ,"0" ,"1" ,"2" ,"3" ,"4" ,"5" ,"6",    
 "7" ,"8" ,"9" ,":" ,";" ,"<" ,"=" ,">" ,"?" ,"@" ,"A" ,"B" ,"C" ,"D" ,"E" ,"F" ,"G" ,"H",    
 "I" ,"J" ,"K" ,"L" ,"M" ,"N" ,"O" ,"P" ,"Q" ,"R" ,"S" ,"T" ,"U" ,"V" ,"W" ,"X" ,"Y" ,"Z",    
 "[" ,"\\" ,   "]" ,"^" ,"_" ,"`" ,"a" ,"b" ,"c" ,"d" ,"e" ,"f" ,"g" ,"h" ,"i" ,"j" ,"k" ,"l",    
 "m" ,"n" ,"o" ,"p" ,"q" ,"r" ,"s" ,"t" ,"u" ,"v" ,"w" ,"x" ,"y" ,"z" ,"{" ,"|" ,"}" ,"~",    
 "\177", "\200", "\201", "\202", "\203", "\204", "\205", "\206", "\207", "\210", "\211", "\212", "\213", "\214", "\215", "\216", "\217", "\220",
 "\221", "\222", "\223", "\224", "\225", "\226", "\227", "\230", "\231", "\232", "\233", "\234", "\235", "\236", "\237", "\240", "\241", "\242",
 "\243", "\244", "\245", "\246", "\247", "\250", "\251", "\252", "\253", "\254", "\255", "\256", "\257", "\260", "\261", "\262", "\263", "\264",
 "\265", "\266", "\267", "\270", "\271", "\272", "\273", "\274", "\275", "\276", "\277", "\300", "\301", "\302", "\303", "\304", "\305", "\306",
 "\307", "\310", "\311", "\312", "\313", "\314", "\315", "\316", "\317", "\320", "\321", "\322", "\323", "\324", "\325", "\326", "\327", "\330",
 "\331", "\332", "\333", "\334", "\335", "\336", "\337", "\340", "\341", "\342", "\343", "\344", "\345", "\346", "\347", "\350", "\351", "\352",
 "\353", "\354", "\355", "\356", "\357", "\360", "\361", "\362", "\363", "\364", "\365", "\366", "\367", "\370", "\371", "\372", "\373", "\374",
 "\375", "\376", "\377")

data.frame(ALL.ASCII)