Windows 中 R 中的 TTF/OTF 字体选择：屏幕与 pdf()

Question

我知道在 Linux 或 Mac 上的 R 中，字体始终被定义为参数 family="Charis SIL" 到 par()、text() 或图形设备函数之一，如 tiff()、svg() 等（用您想要的任何字体名称替换“Charis SIL”）。我也知道在 Windows 上，它只适用于 cairo_pdf() 和 svg() 设备；jpeg()、tiff()、png() 和 bmp() 等光栅图形设备要求首先将字体映射到“Windows 字体数据库”中：

# this doesn't work on windows
jpeg(filename='test1.jpg', family='Charis SIL')
plot(0,0,type='n',ann=FALSE,frame.plot=FALSE)
text(0,0,labels='iyeø?œa???æ?????o?u???????????')
dev.off()
# (gives warnings: Font family not found in Windows font database)  

# this does work on windows (assuming you have the Charis SIL font installed)
windowsFonts(myCustomWindowsFontName=windowsFont('Charis SIL'))
jpeg(filename='test2.jpg', family='myCustomWindowsFontName')
plot(0,0,type='n',ann=FALSE,frame.plot=FALSE)
text(0,0,labels='iyeø?œa???æ?????o?u???????????')
dev.off()

pdf() 设备仍然不同：它似乎需要在 postscriptFonts() 和/或 pdfFonts() 数据库中定义的字体，这意味着只有 Type1 字体：

# this doesn't work on windows
pdf('test.pdf', family='Charis SIL')
# gives error: Unknown family "Charis SIL"

# this doesn't work either
windowsFonts(myCustomWindowsFontName=windowsFont('Charis SIL'))
pdf('test.pdf', family='myCustomWindowsFontName')
# gives error: Unknown family "myCustomWindowsFontName"

# this also won't work
pdf.options(family='Charis SIL')
pdf('test.pdf')
# gives error: Invalid font type
# also gives warning: font family "Charis SIL" not found in Postscript font database

通常这无关紧要，因为 cairo_pdf() 是 pdf() 设备的良好替代品，并且可以很好地处理 TTF 和 OTF 字体。问题是，如果用户绘图到屏幕设备，然后使用菜单命令保存为 PDF，它似乎调用 pdf() 而不是 cairo_pdf()，然后抛出错误：

# this part works
windowsFonts(myCustomWindowsFontName=windowsFont('Charis SIL'))
par(family='myCustomWindowsFontName')
plot(0,0,type='n',ann=FALSE,frame.plot=FALSE)
text(0,0,labels='iyeø?œa???æ?????o?u???????????')

# but menu command "File > Save As > PDF" gives errors:
# Error: Invalid font type
# Warning: font family "Charis SIL" not found in Postscript font database

这是一个问题，因为我正在开发的 R 包在 Windows 上的“R CMD 检查”一直失败，显然是因为示例代码生成了自动保存为 PDF 的屏幕输出，从而产生了上述错误。一种解决方案是放弃 Windows 中屏幕设备的自定义字体（即，如果选择的输出是“屏幕”，则忽略“系列”参数）。另一种选择是使用 Cairo() 包进行屏幕绘图，但如果可以的话，我更愿意坚持使用基本图形。有什么方法可以在屏幕绘图中获取自定义字体，并且在使用“另存为 PDF”菜单命令时不会抛出错误？

Answer 1

我最终解决这个问题的方法如下：

\n\n

oldSans <- windowsFonts()$sans\nwindowsFonts(sans=windowsFont(\'Charis SIL\'))\npar(family=\'sans\') # this line isn\'t necessary anymore\nplot(0,0,type=\'n\',ann=FALSE,frame.plot=FALSE)\ntext(0,0,labels=\'iye\xc3\xb8\xc9\x9b\xc5\x93a\xc9\xb6\xc9\xaa\xca\x8f\xc3\xa6\xc9\x91\xc9\x92\xca\x8c\xc9\x94\xc9\xa4o\xc9\xafu\xca\x8a\xc9\xa8\xca\x89\xc9\x98\xc9\xb5\xc9\x99\xc9\x9c\xc9\x9e\xc9\x90\xc9\x9a\xc9\x9d\')\nwindowsFonts(sans=oldSans)\n

\n\n

这样，屏幕窗口中将使用正确的字体，并且当用户使用菜单命令另存为 PDF 时，PDF 将被保存，但使用默认的无字体而不是自定义字体。仅在导出 PDF 的意义上，它才是一个“解决方案”，但如果绘图具有非 ASCII 字形，则不能保证它们会显示在以这种方式生成的 PDF 中。它也可以说比原来的情况更糟糕，因为该操作不再抛出error，甚至不再抛出warning。这个故事的寓意是：不要依赖 GUI 中的菜单命令来执行您应该知道如何在控制台中执行的操作。

\n