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
Modérateur : Groupe des modérateurs
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)
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)
Retourner vers « Archives : Fonctions graphiques »
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 0 invité