labels des points dans xyplot

Questions sur les fonctions graphiques de R

Modérateur : Groupe des modérateurs

Matthieu Lesnoff
Messages : 120
Enregistré le : 29 Nov 2004, 12:41

labels des points dans xyplot

Messagepar Matthieu Lesnoff » 17 Mar 2006, 06:36

Bonjour

J'ai le fichier suivant :

Code : Tout sélectionner

   phase parity nbrisk    trisk nbconc      bcs        prob
1      1      0  168.0 166.7045      5 3.358844 0.029761905
2      1      1  125.5 125.0485      6 2.599034 0.047808765
3      1      2  204.0 203.0265      3 2.159457 0.014705882
4     10      0  149.0 146.9140      4 3.493304 0.026845638
5     10      1  120.0 118.1725      2 2.754108 0.016666667
6     10      2  205.0 202.1300      2 2.257111 0.009756098
7     11      0  142.0 142.3240      0 3.333647 0.000000000
8     11      1  111.0 111.0005      1 2.626250 0.009009009
9     11      2  196.0 194.9980      1 2.070000 0.005102041
10    12      0  146.5 149.2835      7 3.251852 0.047781570
11    12      1  114.0 116.1165      2 2.513672 0.017543860
12    12      2  179.5 181.9245      0 2.068709 0.000000000
13     2      0  176.5 177.2310      8 3.605804 0.045325779
14     2      1  143.5 144.8570      5 2.858796 0.034843206
15     2      2  223.0 224.6795      1 2.388649 0.004484305
16     3      0  192.0 188.7535     10 3.690909 0.052083333
17     3      1  165.0 162.6900      8 2.868392 0.048484848
18     3      2  263.0 258.6450      5 2.425342 0.019011407
19     4      0  214.5 216.1345     20 3.944597 0.093240093
20     4      1  158.0 159.3190     14 3.140341 0.088607595
21     4      2  261.0 262.5290     20 2.533237 0.076628352
22     5      0  209.0 210.2650     28 4.107407 0.133971292
23     5      1  154.0 155.0620     14 3.155963 0.090909091
etc.


J'ai fait le graphique xyplot suivant (prob en fonction de bcs pour chaque valeur de parity) :

Code : Tout sélectionner

 
xyplot(
    x = prob ~ bcs | parity,
    data = res,
    layout = c(1, 3),
    as.table = TRUE,
    panel = function(x,y){
        panel.xyplot(x, y)
        panel.abline(v = 2.5, lty = 2, col = "red")
        panel.loess(x, y, col = "blue")
        },
    xlab = "Mean BCS",
    ylab = "Probability of conception"
    )


Dans ce graphique, je souhaiterais remplacer les points par un label défini par la valeur de la variable phase, ou alors pouvoir ajouter ce label juste au dessus des points.

Quelqu'un sait-il si cela est possible avec xyplot ?

A+

Matthieu

François Bonnot
Messages : 537
Enregistré le : 10 Nov 2004, 15:19
Contact :

Messagepar François Bonnot » 17 Mar 2006, 07:43

Bonjour Matthieu,
Tu peux toujours mettre une lettre à la place du point avec pch, par ex

Code : Tout sélectionner

        panel.xyplot(x, y,pch=LETTERS[res$phase])

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

RE: labels des points dans xyplot

Messagepar Tillard » 17 Mar 2006, 09:29

Bonjour
avec un jeu de données bidon

Code : Tout sélectionner

df <- data.frame(prob=abs(rnorm(36,mean=0.05, sd=0.05)),
                 bcs=rep(seq(1,5,le=12),3),
                 parity=rep(0:2, rep(12,3)),
                 label.mois=rep(c("j","f","m","a","my","j","jl","au","s","o","n","d"),3))
                 
library(lattice)
xyplot(
    x = prob ~ bcs | parity,
    data = df,
    layout = c(1, 3),
    as.table = TRUE,
    panel = function(x,y, subscripts){
        panel.xyplot(x, y, type="n")
        panel.abline(v = 2.5, lty = 2, col = "red")
        panel.loess(x, y, col = "blue")
        panel.text(x,y,labels=df$label.mois[subscripts])
        },
    xlab = "Mean BCS",
    ylab = "Probability of conception"
    )


Amicalement
Emmanuel Tillard
UMR ERRC (Elevage des Ruminants en Regions Chaudes)
CIRAD - St PIERRE (La Réunion)
tel: 02 62 49 92 54


Retourner vers « Archives : Fonctions graphiques »

Qui est en ligne

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

cron