Kursive Griechische Buchstaben / latex-style-Mathematik im plot-Titel

Ich würde gerne zum erstellen von latex-style-Mathematik im plot-Titel in R. Die plotmath tools eine nützliche, aber begrenzte Teilmenge von Ausdrücken, die Sie anzeigen können, und verwenden Sie nicht-latex-syntax und Stil.

Beispielsweise würde ich gerne drucken der Gleichung $\mathrm{d} \vec{x} = a [\theta - \frac{x}] \mathrm{d} t$ im Titel des plot, und noch bewerten, den Wert von bestimmten Variablen. Die beste Lösung, die ich habe, ist das sehr umständlich:

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)

oder

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)

Diese Frage fast löst dieses Problem, aber ich verliere die Fähigkeit der bquote zur Anzeige der numerische Wert einer variable (lambda in meinem Beispiel). Gibt es eine Möglichkeit, diese kombinieren, so kann ich haben kursive Griechische Buchstaben (das standard-format für Variablen, z.B. wie bei tex) und Werten die an bestimmten Werten?

Gibt es eine viel bessere Möglichkeit, wo ich kann, schreiben Sie einfachen tex-syntax für Formeln und fügen Sie Sie zu meine Grafiken?

Ich würde auch gerne Anzeige Platz wie in meinem latex-Stil Gleichung, statt Klammern, aber nicht sehen können, wie Sie dies tun, entweder.
Sie können dieses CRAN-Paket, übersetzt von LaTeX in plotmath: github.com/stefano-meschiari/latex2exp

InformationsquelleAutor cboettig | 2011-11-18

12

Möchten Sie vielleicht zu prüfen, die tikzDevice Paket (oder nehmen Sie einen Blick auf seine vignette erste), die eine Natürliche Art und Weise zu schreiben LaTeX Mathematik in der R-Grafik.

Ich habe auch ein einfaches Beispiel hier.

Und hier ist ein weiteres Beispiel:
```
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()
```
produziert diese, wenn Sie Sie ausführen pdflatex math.tex:
- Ich sah, dass Beispiel und dachte, es war ganz kewl, aber meine Bemühungen anwenden, um dieses Beispiel ist fehlgeschlagen.
- Ich habe bearbeitet die Antwort ein wenig. Sie können mit Ihren eigenen mathematischen Ausdruck. Was Sie brauchen, zu geben tikzDevice ist einfach nur eine text-string, so dass, wenn Sie möchten, dass Ihre lambda eine Zahl sein, können Sie code wie sprintf('\\alpha + %s + \\beta', 1.234); keine hacks mit bquote() oder substitute() oder expression() erforderlich.
- Ich denke, dies zeigt einen Unterschied in der aus TeX-setups. Ich bekomme diese Fehlermeldung von der TeXworks-Prozessor (wie ich früher): Dies ist pdfTeX, Version 3.1415926-1.40.10 (TeX Live 2009) entering extended mode (./math.tex ! Undefined control sequence. l.3 \documentclass [10pt]{article} ?
- versuchen pdflatex
- Ja. pdflatex erzeugt der plot oben gesehen.
- Danke, das ist genau das, was ich gesucht habe! Schön zu beachten, dass der sprintf-Lösung mit tikzDevice arbeiten können mit einer variable Wert, die nur als bquote/ersetzen machen (vielleicht war das offensichtlich).
- Ich habe dieses Beispiel im Handbuch von einer neuen Verpackung, die ich gearbeitet haben: github.com/downloads/yihui/knitr/knitr-manual.pdf
InformationsquelleAutor Yihui Xie
4

Sollten Sie Bearbeiten Ihre Frage anstatt sub-Kommentare (ich werde sehen, was ich tun kann, über das Feld.). Ich finde manchmal, dass bquote reicht nur nach unten, so tief und, dass Sie müssen verwenden Sie substitute. Das funktioniert:
```
 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)
```
Funktioniert es auch mit ggplot und der Titel Platzierung sieht viel besser aus:
```
 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)
```
Den "d" - "Platz" - zumindest wie ich Sie verstehe, Ihrem Sinn nach bezieht sich auf einen Satz von Latex-Beispiele online unter:

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

(Ich dachte, Sie wollten die http://en.wikipedia.org/wiki/D%27Alembert_operator und war nicht in der Lage zu finden, dass noch nicht.)
- Ich glaube, der OP will eckigen Klammern anstatt Runden Klammern. Für die, die Sie verwenden können group wie diese: group("[", list(theta, bolditalic(x)[italic(t)] ), "]"). (Habe welche aus der 4. oder 5. Seite der demo(plotmath)).
- Mal sehen. Der Begriff "eckigen Klammer" hätte ich verstanden.
- Vereinbart werden. "anstelle von Klammern' ist der einzige Hinweis, den werde ich hier, (und ich könnte einfach falsch sein über das, was verlangt wird).
- Ich entschuldige mich für die Frage nicht klar - ich war auf der Suche für kursiven griechischen Buchstaben, sowie die eckigen Klammern, in die wichtigsten Titel, und vorzugsweise die Verwendung von latex-style-Eingabe, die mehr consise, als die Kursiv-Befehle manuell, und in der Regel flexibler als plotmath Optionen. Die gewählte Antwort sein alle diese.
InformationsquelleAutor 42-

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.