メモ:RでOradano明朝フォントを使う。

Oradano明朝というフォントを見かけて面白そうだったので使ってみました。

私はフォントガチ勢ではないので「東京築地活版製造所」のブランド力がよく分からないんですが、

このフォントが実装している仮名および仮名に準ずる記号は、東京築地活版製造所が明治30年-31年に販売しあるいは印刷していた五号活字(“築地体前期五号仮名”の最終型)に基づき、内田がアウトライン化したものです。それ以外の非漢字は、内田が新規にデザインしたものです。
(http://www.asahi-net.or.jp/~sd5a-ucd/freefonts/Oradano-Mincho/)

とのことです。

やり方は前にFontAwesomeのフォントを使うやり方を書いた記事と同じです。

notchained.hatenablog.com

フォントをインストール

以下のサイトからフォントをダウンロードしてインストールします。

Oradano Mincho : non JIS X 0213 public domain TrueType font

extrafontでフォントを読み込む

インストールされただけではまだRからは使えないので、extrafontパッケージでfontをインポートします。

library(extrafont)
font_import(pattern = "Oradano.*")

これで、Oradano明朝を以下のような名前で指定できるようになるはずです。fonts()の結果が表示されればインポートされています。

fonts()
#> [1] "Oradano-mincho-t"

fontに指定する。

これを、familyに指定すれば大丈夫です。↓こんな感じ。

library(ggplot2)
ggplot(mtcars) + geom_text(aes(x = drat, y = wt), label = "車", family = "Oradano-mincho-t")

以前つくったmukiauというパッケージでOradano明朝を使ってみます。

mukiau(spell = "「ごん、お前だったのか。いつも栗をくれたのは」ごんは、ぐったりと目をつぶったまま、うなずきました。兵十は火縄銃をばたりと、とり落しました。青い煙が、まだ筒口から細く出ていました。",
       family = "Oradano-mincho-t", size = 15)

f:id:yutannihilation:20160410174710p:plain

味があっていいですね。