Курсив греческими буквами / математика в латексном стиле в названиях сюжетов

Я хотел бы создать математику в стиле латекса в заголовках сюжетов в R.Инструменты построения графиков имеют полезный, но ограниченный набор выражений, которые они могут отображать, и используют нелатексный синтаксис и стиль.

Например, я хотел бы напечатать уравнение $ \ 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 отображать числовое значение переменной (в моем примере - лямбда). Есть ли способ объединить их, чтобы я мог использовать курсивные греческие буквы (стандартный формат для переменных, например, как это сделано с помощью tex) и оценивать при определенных значениях?

Есть ли способ лучше, чтобы я мог просто написать tex-синтаксис для уравнений и добавить их в свои графики?