在R和R标记中绘制字体

Question

我正在用R markdown创建一个pdf报告，其中包括用R生成的图形。我希望图形标签，标题等所用的字体与默认R字体不同。我找到了适用于R的解决方案：

library(popbio)
A <- matrix(c(0.0, 0.0, 0.24, 0.11, 0.0, 0.0, 0.0, 0.71, 0.942), 
           nrow=3, byrow=TRUE)
rownames(A) <- c('Juvenile', 'Subadult', 'Adult')
windowsFonts(S = windowsFont('Calibri'))
par(family='S')
stage.vector.plot(pop.projection(A, c(1, 1, 1), 10)$stage.vectors, 
                  main='Stable age distribution')

但是当我尝试编织为pdf时失败，并生成以下错误消息：

Error in replayPlot(x) : invalid font type
Calls: <Anonymous> ... plot2dev -> print -> print.recordedplot -> replayPlot
In addition: There were 45 warnings (use warnings() to see them)
Execution halted

老实说，我不确定这是R问题还是R Markdown问题。有没有更好的方法来使用R来更改字体，这样可以很好地编织，还是应该单独使用R Markdown处理字体更改，如果可以，怎么办？

谢谢。

更新：

警告消息都是以下内容的重复：

In replayPlot(x): font family 'S' not found in PostScript font database