在R图形中使用Unicode'dingbat-like'字形,跨设备和平台,尤其是PDF

Question

你们中的一些人可能已经看过我关于这个主题的博客文章,在我想要帮助一个朋友在图表上生成半满的圆圈之后我编写了以下代码:

TestUnicode <- function(start="25a0", end="25ff", ...)
  {
    nstart <- as.hexmode(start)
    nend <- as.hexmode(end)
    r <- nstart:nend
    s <- ceiling(sqrt(length(r)))
    par(pty="s")
    plot(c(-1,(s)), c(-1,(s)), type="n", xlab="", ylab="",
         xaxs="i", yaxs="i")
    grid(s+1, s+1, lty=1)
    for(i in seq(r)) {
      try(points(i%%s, i%/%s, pch=-1*r[i],...))
    }
  }

TestUnicode(9500,9900) 

这是有效的(即产生一个几乎完整的酷dingbatty符号网格):

• 在Ubuntu 10.04上,在X11或PNG设备中
• 在Mandriva Linux发行版上,安装了pango-devel的相同设备,带有本地构建的R

它没有不同程度(即产生部分或完全填充点或空矩形的网格),无论是静默还是警告:

• 在PDF或PostScript的同一台Ubuntu 10.04机器上(尝试设置font ="NimbusSan"使用URW字体,没有帮助)
• 在MacOS X.6上(石英,X11,开罗,PDF)

例如,尝试所有可用的PDF字体系列:

flist <- c("AvantGarde", "Bookman","Courier", "Helvetica", "Helvetica-Narrow",
        "NewCenturySchoolbook", "Palatino", "Times","URWGothic",
        "URWBookman", "NimbusMon", "NimbusSan", "NimbusSanCond",
        "CenturySch", "URWPalladio","NimbusRom")

for (f in flist) {
  fn <- paste("utest_",f,".pdf",sep="")
  pdf(fn,family=f)
  TestUnicode()
  title(main=f)
  dev.off()
  embedFonts(fn)
}

在Ubuntu上,这些文件都不包含这些符号.

让它在尽可能多的组合上工作会很好,但特别是在一些矢量格式和双重 - 特别是在PDF中.

任何有关使这项工作的字体/图形设备配置的建议都会受到欢迎.

Answer 1

我认为你运气不好Ben,因为根据Paul Murrell的一些注释,pdf()它只能处理单字节编码.需要将多字节编码转换为单字节等效编码,其中存在摩擦; 根据定义,单字节编码不能包含所有可以用UTF-8等多字节编码表示的字形.

Paul的笔记可以在这里找到,他建议使用基于Cairo的PDF设备,cairo_pdf()在适当的Linux和Mac OS系统上使用,或通过CairoMS Windows下的软件包提出几种解决方案.

Answer 2

我发现cairo_pdf设备完全不足:输出明显不同于pdf屏幕渲染,并且它的plotmath支持是粗略的.

但是,在OS X上有一个相当简单的解决方法:使用"普通" quartz设备并将其设置type为pdf:

quartz(type = 'pdf', file = 'output.pdf')

不幸的是,在我的计算机上,这忽略了字体系列并始终使用Helvetica(尽管文档声称默认为Arial).

至少有两个其他问题:

• pdf将连字符转换为迷信.这可能不一定总是你想要的,但正确排版负数非常有用.链接的线程描述了此方法.
• 它当然是特定于平台的,仅适用于OS X.

(我意识到OP简单地提到了Quartz设备,但这个线程经常被查看,我认为这个解决方案需要更加突出.)