R：使用UTF-8字体将.eps导出到Word

我无法将立陶宛字体（UTF-8）的图像从R导出到MS Word。到目前为止，我通过研究方法发现如下示例：

postscript("foo.eps", horizontal = FALSE, onefile = FALSE, 
            paper = "special", height = 7, width = 7,
            colormodel = 'rgb')
plot(density(rnorm(100)), main = "ąčęėįšųūž")
dev.off()

图像已成功导入word，但字体有问题。在R内部，它看起来很好，但是最终输出 看起来像这样：。看起来字体有问题。我尝试使用以下代码嵌入它们：

library(extrafont)
## Only for the first run: Made sure the ghostScript was reachable:
Sys.setenv(R_GSCMD = "C:/Program Files (x86)/gs/gs9.19/bin/gswin32c.exe")

embed_fonts('foo.eps', outfile='foof.eps')

但是，最终的结果是.eps文件，它没有被导入MS Word，并显示消息“此图像当前无法显示”

我做错了什么？任何帮助都将不胜感激

注意：图像的格式不一定是EPS格式，但我还没有发现Word能够理解的任何其他格式，其质量也接近PDF（JPEG/PNG质量太低）

---

编辑：将两个.eps文件都包含到一个LaTeX文件中会产生两个正确的图像，因此问题可能在于Word解释和加载文件的方式。。如果你喜欢，你可以把它另存为pdf格式（

cairo\u pdf

似乎可以很好地处理重音），然后将pdf作为图像插入Word。或者，您可以使用

knitr

直接编织到Word，它可以很好地处理重音，如果不够清晰，还可以在块选项中设置dpi。阅读

？postscriptFonts

和

？dev.interactive

您可以将其保存为pdf格式，如果您喜欢（

cairo\u pdf

似乎可以很好地处理重音），然后将pdf作为图像插入Word。或者，您可以使用

knitr

直接编织到Word，这样可以很好地处理重音，如果不够清晰，还可以在块选项中设置dpi。