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的类似问题拼凑而成。）我没有做出额外的努力来包装＆＃34;完整的整套，以便后期的印刷品不会出现，但你可以看到火星和金星。

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

用火星和金星符号保存R曲线为pdf

1 个答案: