Hi
You can write the following in "~/.Rprofile".
----8<----8<----8<----8<----8<----8<----8<----8<----8<----8<----8<----
setHook(packageEvent("grDevices", "onLoad"),
function(...){
if(capabilities("aqua"))
grDevices::quartzFonts(
sans =grDevices::quartzFont(rep("AppleGothic",4)),
serif=grDevices::quartzFont(rep("AppleMyungjp",4)))
grDevices::pdf.options(family="Korea1")
grDevices::ps.options(family="Korea1")
}
)
attach(NULL, name = "KoreaEnv")
assign("familyset_hook",
function() {
macfontdevs=c("quartz","quartz_off_screen")
devname=strsplit(names(dev.cur()),":")[[1L]][1]
if (capabilities("aqua") &&
devname %in% macfontdevs)
par(family="sans")
},
pos="KoreaEnv")
setHook("plot.new", get("familyset_hook", pos="KoreaEnv"))
setHook("persp", get("familyset_hook", pos="KoreaEnv"))
----8<----8<----8<----8<----8<----8<----8<----8<----8<----8<----8<----
familyset_hook is a claptrap method.
There were no italics in Japanese, but there were two weight fonts.
I don't know good Korean font, choose a good font, please.
2009/10/30 Dong-hyun Oh <[email protected]>:
> Dear R users,
>
> I run R-2.9.2 on the Snow Leopard 10.6.1 OS system. The default language of
> the OS is english.
>
> I want to plot a very simple graph with Korean letters on a quartz() device,
> but it fails. Korean Letters appear as being squares.
>
> The same command works fine in Windows systems.
>
> My question is how can I draw or typeset Korean letters in quartz() device
> on SL OS?
>
>
> Best regards,
> Donghyun Oh
>
> _______________________________________________
> R-SIG-Mac mailing list
> [email protected]
> https://stat.ethz.ch/mailman/listinfo/r-sig-mac
>
>
>
--
EI-JI Nakama <nakama (a) ki.rim.or.jp>
"\u4e2d\u9593\u6804\u6cbb" <nakama (a) ki.rim.or.jp>
_______________________________________________
R-SIG-Mac mailing list
[email protected]
https://stat.ethz.ch/mailman/listinfo/r-sig-mac
