5

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

4

1 回答 1

2

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

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 中的菜单命令来执行您应该知道如何在控制台中执行的操作。

于 2012-10-02T21:43:21.233 回答