Rで解析:RStudioのR MarkDownのPDFで日本語を扱う環境設定

RStudioのR MarkDownのPDFで日本語を扱う環境設定の覚書です。また、PDF内でggplot2に日本語を適応するコマンド例とRmdファイルを紹介します。

RStudioで図のプロットの日本語が文字化けもしくは表示されない場合は下記記事が参考になるかもしれません。

実行コマンドはRStudioのRStudio Desktop 2021.09.2+382、windows 11のR version 4.1.2で確認しています。

必要なパッケージのインストール

下記コマンドをRStudioで実行してください。

#パッケージのインストール
install.packages(c("tinytex", "rmarkdown", "bitops",
                   "caTools", "rprojroot", "tidyverse"))

TinyTeXとIPAフォントのインストール

tinytexパッケージはPDFで日本語を扱う環境を整えるのに便利なパッケージです。詳細はパッケージのヘルプを確認してください。

IPAフォントの詳細は下記リンクを参照してください。

・独立行政法人情報処理推進機構

https://ipafont.ipa.go.jp/old/ipafont/download.html

#TinyTeXのインストール
tinytex:::install_prebuilt()
#もしくは
#tinytex::install_tinytex()

#ipaフォントのインストール
#C:\Users\"ユーザー名"\AppData\Roaming\TinyTeX\texmf-dist\fonts\truetype\public\ipaex
#にフォントファイルがインストールされます
tinytex::tlmgr_install("ipaex")

ggplot2で日本語を扱うコマンド例

詳細はコマンド、Rmdファイル（エンコード:UTF-8）、パッケージヘルプを確認してください。

Rmdファイル：Japanese ダウンロード

---
title: "&#12486;&#12473;&#12488;"
date: "2022/1/23"
output:
  pdf_document:
    latex_engine: xelatex
highlight: "zenburn"
mainfont: ipaexg.ttf
---

# ggplot2&#12391;&#12398;&#26085;&#26412;&#35486;&#35373;&#23450;
#&#20197;&#19979;&#12434;&#35373;&#23450;&#12377;&#12427;&#12290;&#19968;&#24230;&#35373;&#23450;&#12377;&#12428;&#12400;OK&#12290;&#12481;&#12515;&#12531;&#12463;&#12395;include=FALSE&#12434;&#36861;&#35352;&#12377;&#12427;&#12392;&#33391;&#12356;&#12290;
```{r setup, include=TRUE}
knitr::opts_chunk$set(dev = "cairo_pdf", dev.args = list(family = "ipaexg"))
# &#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("tidyverse")

# &#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;
n <- 100
TestData <- data.frame(Group = sample(paste0("&#12464;&#12523;&#12540;&#12503;", 1:5),
                                      n, replace = TRUE),
                       Data = sample(c("&#12363;", "&#12425;", "&#12384;", "&#12395;", "&#12356;", "&#12356;",
                                       "&#12418;","&#12398;"), n, replace = TRUE))
```

# &#12503;&#12525;&#12483;&#12488;
```{r, fig.cap="&#12461;&#12515;&#12503;&#12471;&#12519;&#12531;&#12418;&#26085;&#26412;&#35486;&#12391;&#12458;&#12483;&#12465;&#12540;", include=TRUE, fig.width=4, fig.height=4}
ggplot(TestData, aes(x = Group, y = Data)) + geom_point()
```