r - 情节标题中的斜体希腊字母/ latex 式数学

Question

我想在 R 中的绘图标题中创建 latex 风格的数学。 plotmath tools拥有可以显示的有用但有限的表达式子集，并使用非 latex 语法和样式。

例如，我想在绘图标题中打印方程 $\mathrm{d}\mathbf{x} = a [\theta -\mathbf{x}]\mathrm{d} t$，并仍然评估某些变量的值。我最好的解决方案是非常麻烦的:

lambda <- 4
plot(1:10,1:10)

mtext(bquote(paste(d*bolditalic(x)[italic(t)] == alpha*(theta - bolditalic(x)[italic(t)] )*d*italic(t) +  .(lambda) * d * italic(B)[italic(t)] )), line=2.25,cex=2) 

或

require(ggplot2)
qplot(1:10, 1:10) + opts(title=bquote(paste(d*bolditalic(x)[italic(t)] == alpha*(theta - bolditalic(x)[italic(t)] )*d*italic(t) +  .(lambda) * d * italic(B)[italic(t)] )), line=2.25,cex=2)

This question几乎解决了这个问题，但是我失去了 bquote 显示变量数值的能力(在我的示例中是 lambda )。有没有办法将这些组合起来，以便我可以使用斜体希腊字母(变量的标准格式，例如由 tex 完成的)并评估特定值？

有没有更好的方法可以让我简单地编写方程的文本语法并将它们添加到我的图表中？

Answer 1

您可能想查看tikzDevice包(或者先看看 its vignette)，它提供了一种在 R 图形中编写 LaTeX 数学的自然方法。

我还有a simple example here .

这是另一个例子:

library(tikzDevice)
library(ggplot2)
tikz('math.tex', standAlone = TRUE, width = 4, height = 4)
qplot(1:10, 1:10, 
  main = '$\\mathrm{d} \\mathbf{x} = a [\\theta - \\mathbf{x}] \\mathrm{d} t$')
dev.off()

如果你运行pdflatex math.tex会产生这个: