lettre grecque ou symbole mathematique dans strip

Questions sur les fonctions graphiques de R

Modérateur : Groupe des modérateurs

Tillard
Messages : 87
Enregistré le : 17 Déc 2004, 10:32

lettre grecque ou symbole mathematique dans strip

Messagepar Tillard » 02 Avr 2006, 07:52

Bonjour
quelqu'un sait-il comment inclure des lettres grecques ou des symboles mathematiques (comme inférieur ou egal par exemple) dans les etiquettes (strip) des panels d'un graphe trellis ?
Emmanuel
Emmanuel Tillard
UMR ERRC (Elevage des Ruminants en Regions Chaudes)
CIRAD - St PIERRE (La Réunion)
tel: 02 62 49 92 54

Renaud Lancelot
Messages : 2484
Enregistré le : 16 Déc 2004, 08:01
Contact :

Messagepar Renaud Lancelot » 02 Avr 2006, 16:31

Salut Manu,

Voici un exemple que je n'aurais pas trouvé tout seul sans l'excellent bouquin de Paul Murrell:

Murrell, P., 2005, R graphics. Chapman & Hall / CRC, London, 301 p.

Voir la p. 144 pour ce qui concerne ta question.

Amicalement,

Renaud

Code : Tout sélectionner

test <- data.frame(
    facteur = c("beta <= alpha", "alpha <= beta"),
    y = 1:2,
    x = 1:2)
 
library(lattice)

myStrip <- function(which.panel, ...){
  expr <- levels(test$facteur)[which.panel]

  llines(c(0, 1, 1, 0, 0), c(0, 0, 1, 1, 0), col = "black")

  ltext(.5, .5, parse(text = expr))
  }

xyplot(y ~ x | facteur, data = test, strip = myStrip)

Tillard
Messages : 87
Enregistré le : 17 Déc 2004, 10:32

lettres grecques ou symbole math dans strip

Messagepar Tillard » 02 Avr 2006, 17:07

Salut Renaud

merci pour la solution: c'est effectivement tordu mais ca marche;

Bonne fin de dimanche !
Emmanuel Tillard

UMR ERRC (Elevage des Ruminants en Regions Chaudes)

CIRAD - St PIERRE (La Réunion)

tel: 02 62 49 92 54

Tillard
Messages : 87
Enregistré le : 17 Déc 2004, 10:32

suite symboles math et lettres grecques dans les strip

Messagepar Tillard » 02 Avr 2006, 19:09

Voici un petit raffinement a partir de ton exemple précédent
but: remplacer <= et > par les symboles math, en présence de texte

Code : Tout sélectionner

fact <- 1:2
levels(fact) <- c(eval(substitute(expression(a <= b), list(a = "Urea",b = "4.5 mmol /L"))),
                  eval(substitute(expression(a > b), list(a = "Urea", b = "4.5 mmol /L"))))

test <- data.frame(
    facteur = fact,
    y = 1:2,
    x = 1:2)
myStrip <- function(which.panel, ...){
  expr <- levels(test$facteur)[which.panel]

  llines(c(0, 1, 1, 0, 0), c(0, 0, 1, 1, 0), col = "black")

  ltext(.5, .5, parse(text = expr))
  }

xyplot(y ~ x | facteur, data = test, strip = myStrip)


a partir de la, toutes les combinaisons sont "theoriquement" possibles

je souhaiterai en plus remplacer le premier "m" de mmol par la lettre grecque "mu": la je n'y suis pas encore parvenu.

Emmanuel
Emmanuel Tillard

UMR ERRC (Elevage des Ruminants en Regions Chaudes)

CIRAD - St PIERRE (La Réunion)

tel: 02 62 49 92 54

Samir Messad
Messages : 76
Enregistré le : 10 Jan 2005, 20:56

Messagepar Samir Messad » 05 Avr 2006, 12:41

Salut,

pour répondre à Manu sur l'utilisation conjointe des symboles grecques et de texte dans les labels. Une solution simple est d'utiliser les caractères spéciaux en faisant référence aux tables ascii (http://www.lookuptables.com/).
2 solutions :

1. par le biais du menu caractère speciaux de MS Word. en copiant-collant
2. en tapant le code ascii grâce la combinaison de touche ALT+230 (caractère mu). Utiliser le pavé numérique de votre clavier.

Samir.


Retourner vers « Archives : Fonctions graphiques »

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité