してみた。 .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