significado - Letras griegas cursivas/matemáticas de estilo látex en títulos de parcelas

simbolos en latex

Question

Me gustaría crear matemática al estilo látex en títulos de trazado en R. Las herramientas plotmath tienen un subconjunto útil pero limitado de expresiones que pueden mostrar, y usan sintaxis y estilo sin látex.

Por ejemplo, me gustaría imprimir la ecuación $ / mathrm {d} / mathbf {x} = a [/ theta - / mathbf {x}] / mathrm {d} t $ en el título de la gráfica, y todavía evaluar el valor de ciertas variables. La mejor solución que tengo es la muy engorrosa:

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) 

o

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)

Esta pregunta casi resuelve esto, pero pierdo la capacidad de bquote para mostrar el valor numérico de una variable (lambda en mi ejemplo). ¿Hay alguna manera de combinar estos para que pueda tener letras griegas en cursiva (el formato estándar para las variables, por ejemplo, como hecho por tex) y evaluar en valores específicos?

¿Hay una forma mucho mejor en la que pueda escribir sintaxis tex para ecuaciones y agregarlas a mis gráficos?

Answer 1

Debe editar su pregunta en lugar de poner subcomentarios (veré qué puedo hacer con la caja). A veces me parece que el bquote solo alcanza tan profundo y que debes usar el substitute . Esto funciona:

 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)

También funciona con ggplot y la ubicación del título parece mucho mejor:

 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)

La "d" es "cuadrada" al menos cuando entiendo su significado después de consultar un conjunto de ejemplos de látex en línea en:

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

(Pensé que querías el http://en.wikipedia.org/wiki/D%27Alembert_operator y aún no lo encontraste).

Answer 2

Es posible que desee consultar el paquete tikzDevice (o echar un vistazo a su viñeta primero), que proporciona una forma natural de escribir LaTeX matemática en R gráficos.

También tengo un ejemplo simple aquí .

Y aquí hay otro ejemplo:

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()

que produce esto si ejecuta pdflatex math.tex :