sasakiy84.net

R で lattice パッケージを使って日本語を埋め込んだPDFの画像を作成する方法（Mac）

5 min

これは、TSG Advent Calendar 2025 の 5 日目の記事です。 半分自分用メモですが、ちょうどアドカレが埋まってなかったので、公開します。

Mac で failed to load cairo DLL というメッセージが出て、R で日本語を埋め込んだPDFの画像を作成できない場合がある。 方法２は依存関係なしでできるが、検証した範囲だと関数にいちいちフォント指定をしないとうまくいかない。 方法１の方が汎用性が高く環境ごとにコードを書き換えなくていいので、方法１を推奨する。

方法１： XQuartz を使った方法

XQuartz というソフトウェアをインストールすることで、cairo_pdf 関数を使って日本語を埋め込んだ PDF を作成できるようになる。

対応手順

  1. https://www.xquartz.org/ の XQuartz-XXX.pkg をダウンロード（バージョン番号はなんでもいいはず）して、ダウンロードした pkg をダブルクリックしてソフトウェアをインストールする
  2. PC を再起動する（この手順はスキップしても大丈夫かもしれないが、念のため。私の環境では PC の再起動はしなくてもよかった）
  3. 以下の手順を、RStudio で一行ずつ実行してみる
cairo_pdf("test.pdf", width = 6, height = 4) # 必要であれば family 引数でフォントを直接指定する
qqmath(data, xlab = "日本語ラベル", ylab = "日本語ラベル") # グラフを描画する
dev.off() # test.pdf が生成されており、中身が存在することを確認する

なお、RStudio 上で表示しているグラフが文字化けする場合は、以下を実行してからグラフを表示してみる。

install.packages("ragg") 
# RStudio の設定を変更する。左上のメニューバーで Edit > Preferences > General > Graphics > Graphics Device > backend が AGG になっていることを確認する（日本語設定だと違うかも）。設定を変更したときは、RStudio を再起動する、これは RStudio でグラフを見るときに、日本語が文字化けしないようにするための設定

やっていることの説明

cairo_pdf では、裏側で X11 という表示を管理するためのシステムを使っている。（?cairo_pdf をすると、In principle these devices are independent of X11 (as is seen by their presence on Windows). But on a Unix-alike the cairo libraries may be distributed as part of the X11 system and hence that (for example, on macOS, XQuartz) may need to be installed. と末尾の note に書かれている。）

Mac のバージョンによっては、このシステムがデフォルトではインストールされていないよう。（cf. https://support.apple.com/ja-jp/100724） それを解決するために XQuartz プロジェクトというものがあり、それが提供しているソフトウェアをインストールしてもらうということ。

方法２： Quartz を使った方法

奥村先生の Rの初歩 に、以下の記述がある。

MacではOSの機能（Quartz）を使ってコマンドでPDF出力することもできます。Macではこちらが推奨です。

quartz(type="pdf", width=7, height=5, file="hoge.pdf")
par(mgp=c(2, 0.8, 0))
curve(dnorm(x), -3, 3, lwd=2, family="Helvetica")
title(main="正規分布", family="HiraginoSans-W3", font.main=1)
dev.off()

実際、このコマンドの通りにやれば PDF に日本語を埋め込むことができるし、lattice パッケージでも同様にできる。

library(lattice)
data <- rnorm(100)
quartz(type="pdf", width=7, height=5, file="hoge.pdf")
qqmath(data, xlab = "日本語ラベル(Quartz)", ylab = "分位点", par.settings = list(
    axis.text = list(fontfamily = "HiraginoSans-W3"),      # 軸の数字 (目盛)
    par.xlab.text = list(fontfamily = "HiraginoSans-W3"),  # X軸ラベル
    par.ylab.text = list(fontfamily = "HiraginoSans-W3"),  # Y軸ラベル
    par.main.text = list(fontfamily = "HiraginoSans-W3")   # タイトル
))
dev.off()

ただ、なぜか関数ごとにフォントを指定しなければうまくいかなかった。 以下のようにデフォルト設定を変えてみようとしたが、変わらず豆腐のままだった。

trellis.par.set(list(
  axis.text = list(fontfamily = "HiraginoSans-W3"),
  par.xlab.text = list(fontfamily = "HiraginoSans-W3"),
  par.ylab.text = list(fontfamily = "HiraginoSans-W3")
))

環境情報

以下の環境で動作確認を行った。

RStudio のバージョンは 2025.09.1+401 (2025.09.1+401)。 Mac OS は、15.3.2。 R のバージョン情報は以下の通り。

platform       aarch64-apple-darwin20      
arch           aarch64                     
os             darwin20                    
system         aarch64, darwin20           
status                                     
major          4                           
minor          5.1                         
year           2025                        
month          06                          
day            13                          
svn rev        88306                       
language       R                           
version.string R version 4.5.1 (2025-06-13)
nickname       Great Square Root
Rlang