在R中编织日语字符

Question

我有以下代码：

title("1月 / January", line = -1, adj=0)
main("チェックインロビー ")

但是，当我编织成pdf时，它只会使日语字符成为问号。 有人知道如何解决这个问题吗？