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

Question

我想在R中的情节标题中创建乳胶风格的数学.plotmath工具有一个有用但有限的表达式子集,它们可以显示,并使用非乳胶语法和风格.

例如,我想在图的标题中打印等式$\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)

这个问题几乎可以解决这个问题,但是我放弃了bquote显示变量数值的能力(在我的例子中是lambda).有没有办法结合这些,所以我可以有斜体希腊字母(变量的标准格式,例如由tex完成)并评估具体值？

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

Answer 1

您可能想要查看tikzDevice包(或首先看一下它的插图),这提供了一种在R图形中编写LaTeX数学的自然方法.

我这里也有一个简单的例子.

这是另一个例子:

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: