R 棒グラフ 日本語がトーフになる

data = c(12,24,36,48,60)
barplot(data,main="売り上げ")

タイトルが□□□□になっている。
俗に言うトーフである。
「豆腐」でもなく「とうふ」でもなく「トーフ」。

色々解決策はあるようなのだが、

par(family="HiraKakuProN-W3")
data = c(12,24,36,48,60)
barplot(data,main="売り上げ")

でサクッと解決。

HiraKakuProN-W3は字体の種類かなあ。
他にも色々ありそう。