将带有火星和金星符号的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()