windows - R for windows : onscreen vs pdf() 中的 TTF/OTF 字体选择

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 屏幕设备的自定义字体(即，如果选择的输出是“屏幕”，则忽略“family”参数)。另一种选择是使用 Cairo() 包进行屏幕绘图，但如果可以的话，我更愿意坚持使用基本图形。有什么方法可以让我在屏幕绘图中获得自定义字体，并且在使用“另存为 PDF”菜单命令时不会引发错误？

Answer 1

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

oldSans <- windowsFonts()$sans
windowsFonts(sans=windowsFont('Charis SIL'))
par(family='sans') # this line isn't necessary anymore
plot(0,0,type='n',ann=FALSE,frame.plot=FALSE)
text(0,0,labels='iyeøɛœaɶɪʏæɑɒʌɔɤoɯuʊɨʉɘɵəɜɞɐɚɝ')
windowsFonts(sans=oldSans)

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