斜体希腊字母/情节标题中的乳胶风格数学

Question

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

例如，我想在绘图标题中打印方程 $\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 完成）并以特定值进行评估？

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

Answer 1

您应该编辑您的问题，而不是放置子 cmets（我会看看我能对这个框做些什么。）。我有时会发现 bquote 只能达到这么深，您需要使用 substitute。这有效：

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

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

它也适用于 ggplot，并且标题放置看起来好多了：

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

“d”是“方形”，至少我在参考了一组在线乳胶示例后理解您的意思：

http://www.personal.ceu.hu/tex/cookbook.html

（我以为你想要http://en.wikipedia.org/wiki/D%27Alembert_operator，但还没有找到。）

Answer 2

您可能想查看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 会产生这个：