Intégration de LaTeX dans les graphiques R

Question

Je voudrais ajouter LaTeX la composition des éléments des parcelles dans R (par exemple : le titre, les étiquettes d'axe, les annotations, etc.) en utilisant soit la combinaison des éléments suivants base/lattice ou avec ggplot2 .

Questions :

• Y a-t-il un moyen d'obtenir LaTeX dans des parcelles à l'aide de ces paquets, et si oui, comment s'y prend-on ?
• Si ce n'est pas le cas, des paquets supplémentaires sont-ils nécessaires pour y parvenir ?

Par exemple, dans Python matplotlib compile LaTeX via le text.usetex comme indiqué ici : http://www.scipy.org/Cookbook/Matplotlib/UsingTex

Existe-t-il un processus similaire permettant de générer de tels tracés en R ?

Answer 1

Voici un exemple utilisant ggplot2 :

q <- qplot(cty, hwy, data = mpg, colour = displ)
q + xlab(expression(beta +frac(miles, gallon)))

Answer 2

Comme volé à aquí la commande suivante utilise correctement LaTeX pour dessiner le titre :

plot(1, main=expression(beta[1]))

Ver ?plotmath pour plus de détails.

Answer 3

Vous pouvez générer du code tikz à partir de R : http://r-forge.r-project.org/projects/tikzdevice/

Answer 4

Voici une solution, proposée par Frank Harrell :

http://biostat.mc.vanderbilt.edu/wiki/Main/PsFrag

Answer 5

Voici une fonction sympa qui vous permet d'utiliser la fonctionnalité plotmath, mais avec les expressions stockées en tant qu'objets du mode caractère. Cela vous permet de les manipuler par programme en utilisant des fonctions de collage ou d'expression régulière. Je n'utilise pas ggplot, mais cela devrait fonctionner là aussi :

    express <- function(char.expressions){
       return(parse(text=paste(char.expressions,collapse=";")))
    }
    par(mar=c(6,6,1,1))
    plot(0,0,xlim=sym(),ylim=sym(),xaxt="n",yaxt="n",mgp=c(4,0.2,0),
       xlab="axis(1,(-9:9)/10,tick.labels,las=2,cex.axis=0.8)",
       ylab="axis(2,(-9:9)/10,express(tick.labels),las=1,cex.axis=0.8)")
    tick.labels <- paste("x >=",(-9:9)/10)
    # this is what you get if you just use tick.labels the regular way:
    axis(1,(-9:9)/10,tick.labels,las=2,cex.axis=0.8)
    # but if you express() them... voila!
    axis(2,(-9:9)/10,express(tick.labels),las=1,cex.axis=0.8)