The R Project SVN R

Rev

Rev 61153 | Rev 68948 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 61153 Rev 62737
Line 35... Line 35...
35 
plot(1:9, type = "n", axes = FALSE, frame = TRUE, ylab = "",
 35 
plot(1:9, type = "n", axes = FALSE, frame = TRUE, ylab = "",
36 
     main = "example(Japanese)", xlab = "using Hershey fonts")
 36 
     main = "example(Japanese)", xlab = "using Hershey fonts")
37 
par(cex = 3)
 37 
par(cex = 3)
38 
Vf <- c("serif", "plain")
 38 
Vf <- c("serif", "plain")
39 
% doubled "\" -> can't execute here!
 39 
% doubled "\" -> can't execute here!
40 
text(4, 2, "\\\\#J2438\\\\#J2421\\\\#J2451\\\\#J2473", vfont = Vf)
 40 
text(4, 2, "\\\\#J244b\\\\#J245b\\\\#J2473", vfont = Vf)
41 
text(4, 4, "\\\\#J2538\\\\#J2521\\\\#J2551\\\\#J2573", vfont = Vf)
 41 
text(4, 4, "\\\\#J2538\\\\#J2563\\\\#J2551\\\\#J2573", vfont = Vf)
42 
text(4, 6, "\\\\#J467c\\\\#J4b5c", vfont = Vf)
 42 
text(4, 6, "\\\\#J467c\\\\#J4b5c", vfont = Vf)
43 
text(4, 8, "Japan", vfont = Vf)
 43 
text(4, 8, "Japan", vfont = Vf)
44 
par(cex = 1)
 44 
par(cex = 1)
45 
text(8, 2, "Hiragana")
 45 
text(8, 2, "Hiragana")
46 
text(8, 4, "Katakana")
 46 
text(8, 4, "Katakana")