r - 将带有火星和金星符号的 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 。绘制图形后，我使用:

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()