Question

所以我想通过更改字体为我的图添加一些魅力。但是当我尝试保存为pdf时，我的RStudio总是崩溃。所以我们来看看这些数据：

plot(1:10,1:10,type="n")
windowsFonts(
  A=windowsFont("Arial Black"),
  B=windowsFont("Bookman Old Style"),
  C=windowsFont("Comic Sans MS"),
  D=windowsFont("Symbol")
)
text(3,3,"Hello World Default")
text(4,4,family="A","Hello World from Arial Black")
text(5,5,family="B","Hello World from Bookman Old Style")
text(6,6,family="C","Hello World from Comic Sans MS")
text(7,7,family="D", "Hello World from Symbol")

然后使用Export＆gt;＆gt; Save as pdf函数，具有不同字体的图像将无法保存。同时使用pdf("SampleGraph.pdf",width=7,height=5) 不行。没有人知道解决这个问题的方法，还是今天我的电脑摆脱了错误的一面？

Answer 1

似乎.pdf格式无法处理这些字体。一种解决方案是将图像导出为.png格式，并使用 Sweave 将图形包含在.pdf中。或者，您可以使用福昕阅读器或ImageMagick等程序将.png转换为.pdf。我将演示 Sweave 解决方案。

\documentclass{article}

\usepackage[margin=1.0in]{geometry}

\begin{document}
\SweaveOpts{concordance=TRUE}

<<echo=FALSE>>=
par(mar=c(3,3,3,3))
png("test.png", units="in", width=8, height=8, res=500)
plot(1:10,1:10,type="n",xlab="",ylab="")
windowsFonts(
    A=windowsFont("Arial Black"),
    B=windowsFont("Bookman Old Style"),
    C=windowsFont("Comic Sans MS"),
    D=windowsFont("Symbol")
)
text(3,3,"Hello World Default")
text(4,4,family="A","Hello World from Arial Black")
text(5,5,family="B","Hello World from Bookman Old Style")
text(6,6,family="C","Hello World from Comic Sans MS")
text(7,7,family="D", "Hello World from Symbol") 
x <- dev.off()
@

\begin{figure}[ht]
\includegraphics[width=1.0\textwidth]{test}
\end{figure}

\end{document}

这将生成以下.pdf文件。

.text()

从Rstudio保存为pdf

1 个答案: