r - Knitr とデフォルト以外のフォントを使用した不適切なフォント配置

Question

R コードとして直接型付けされたものを適切に出力するグラフィックがいくつかありますが、knitr で生成するとテキストの配置が正しくありません。検討

library(ggplot2)
library(extrafont)
loadfonts(device="win")
ggplot(data.frame(x=1:10,section=c(rep("You",8),rep("Me",2))))+
geom_point(aes(x=x,y=x))+
ylab("my\nlabel")+
theme(text=element_text(family="Arial Unicode MS"))+facet_wrap(~section)

私は得る

それは結構です。次に、knitr に移動します (R マークダウンを使用)

```{r dev=c('png')}
library(ggplot2)
library(extrafont)
loadfonts(device="win")
ggplot(data.frame(x=1:10,section=c(rep("You",8),rep("Me",2))))+
geom_point(aes(x=x,y=x))+
ylab("my\nlabel")+
theme(text=element_text(family="Arial Unicode MS"))+facet_wrap(~section)
```

いくつかの警告が表示されます (数回)

## Warning: unknown AFM entity encountered
## Warning: font width unknown for character 0x32

そして、テキストがずれます。

y ラベルを見てください。

cairo_pdf私はデバイスを使用してまったく同じ問題を抱えています

コードは

library(ggplot2)
cairo_pdf("plot.pdf")
ggplot(data.frame(x=1:10,section=c(rep("You",8),rep("Me",2))))+
geom_point(aes(x=x,y=x))+
ylab("my\nlabel")+
theme(text=element_text(family="Arial Unicode MS"))+facet_wrap(~section)
dev.off()

R と

```{r dev=c('cairo_pdf')}
library(ggplot2)
ggplot(data.frame(x=1:10,section=c(rep("You",8),rep("Me",2))))+
geom_point(aes(x=x,y=x))+
ylab("my\nlabel")+
theme(text=element_text(family="Arial Unicode MS"))+facet_wrap(~section)
```

ニット用。警告は現在

## Warning: font family 'Arial Unicode MS' not found in PostScript font database

しかし、画像は以前と同じ問題を示しています。

R 3.0.1 を使用する win7 と MacOS X プラットフォームの両方でこの問題を再現しました。

この問題を解決するための簡単な解決策があるかもしれないと思いますが、私はそれを理解することができませんでした.

助言がありますか？