将带有火星和金星符号的 R 图另存为 pdf

Question

我正在尝试保存具有女性 (\u2640) 和男性 (\u2642) 符号的图。这是一个使用此符号创建绘图的示例（我使用的是 RStudio）：

gender <- rbinom(n=100, size=100, prob=0.5)
plot(gender, cex=2.5,
       pch=ifelse(gender %% 2 == 0, -0x2642L, -0x2640L),
       col=ifelse(gender %% 2 == 0, 2, 3), main="\u2640 and \u2642 Symbols")

它可以工作并使用这些符号Plot 生成一个图。我可以将其另存为图片 (PNG)，但是当我尝试将其另存为 pdf 时，所有符号都不会显示 Plot。

这是我尝试将其保存为 pdf 的方法：

pdf("plot.pdf")
gender <- rbinom(n=100, size=100, prob=0.5)
plot(gender, cex=2.5,
       pch=ifelse(gender %% 2 == 0, -0x2642L, -0x2640L),
       col=ifelse(gender %% 2 == 0, 2, 3), main="\u2640 and \u2642 Symbols")

dev.off() 

我在这里看到另一个关于类似问题的帖子，建议使用 CairoPDF。那没起效。我尝试了其他家庭设置，但它也不起作用。是否有任何其他解决方法可以将其保存为带有这些符号的 pdf，或者将其保存为图片的唯一方法。我宁愿把它保存为pdf。

经过大量尝试后，我切换到命令行并使用石英。绘制我使用的图表后：

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

完美运行。为什么它不能使用第一个代码 pdf("plot.pdf") 但适用于quartz.save(type = 'pdf', file = 'output.pdf')？是不是我的系统有问题？

谢谢。

Answer 1

在我的 Mac 上，这提供了一个带有占星符号的 pdf。 （通过搜索 SO 上的类似问题拼凑而成。）我没有付出额外的努力来整齐地“包装”全套，所以“后来的印刷品不会出现，但你可以看到火星和金星.

cairo_pdf("Venus_Mars.pdf",family="ArialUnicodeMS")
plot(1,1)
TestUnicode <- function(start="263c", end="2653", ...)
  {
    nstart <- as.hexmode(start)
    nend <- as.hexmode(end)
    r <- nstart:nend
    s <- ceiling(sqrt(length(r)))
    for(i in seq(r)) {
      try(points(.6+(i/10), .8 , pch=-1*r[i],...))
    }
  }
 TestUnicode()
dev.off()