してみた。 .Rprofileを以下のようにしたところ、とりあえず動く。 Carbon Emacs 2008年夏版と R 2.7.1 で確認しています。 if (.Platform$pkgType == "mac.binary"){ options(device="quartz") } setHook(packageEvent("grDevices", "onLoad"), function(...){ grDevices::quartzFonts(serif=grDevices::quartzFont( c("Hiragino Mincho Pro W3", "Hiragino Mincho Pro W6", "Hiragino Mincho Pro W3", "Hiragino Mincho Pro W6"))) grDevices::quartzFonts(sans=grDevice

R標準のデバイス表示に使われるフォントは基本的に以下の記述を~/.Rprofileに書けばいいことになっています。 # たとえばMacのquartzデバイスでヒラギノゴシック setHook(packageEvent("grDevices", "onLoad"), function(...){ grDevices::quartzFonts(sans=grDevices::quartzFont( c("Hiragino Kaku Gothic Pro W3", "Hiragino Kaku Gothic Pro W6", "Hiragino Kaku Gothic Pro W3", "Hiragino Kaku Gothic Pro W6"))) }) attach(NULL, name = "MacJapanEnv") assign("familyset_hook", function()