IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

R Discussion :

Ajout des étiquettes de données sur graphique empilé


Sujet :

R

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Développeur décisionnel
    Inscrit en
    Janvier 2013
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Développeur décisionnel
    Secteur : Distribution

    Informations forums :
    Inscription : Janvier 2013
    Messages : 4
    Points : 5
    Points
    5
    Par défaut Ajout des étiquettes de données sur graphique empilé
    Bonjour à tous,

    Je souhaite faire apparaître sur mon graphique empilé les étiquettes de données (comme pour Excel).

    J'ai réussi à le faire sur un graphique simple mais je bloque sur un graphique empilé...

    J'ai passé plus d'une journée à chercher en vain, idem sur le forum
    Pouvez-vous m'aider svp ?

    Voici mon code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
     
    q1Ord = ordered(fichier$Q1, levels=c("immediat", "apres 2 a 3 tentatives", "apres 3 a 5 tentatives", "apres plus de 5 tentatives"))
    > a = table(q1Ord, fichier$ORGANISATION)
    > b = addmargins(a,2)
    > b = prop.table(b,2)
    > colnames(b) = c(colnames(a), "TOTAL")
    > b = round(b*100,0)
    > 
    > par(xpd=TRUE, mar=c(4,4,4,14))
    > graphe3 = barplot(b, col = c("green", "purple", "blue", "red"))
    > title(main=paste("Q1","\n",sep=""),cex.main=2)
    > legend(5.5, 100, col = "black", fill = c("red", "blue","purple", "green"), legend = c("apres plus de 5 tentatives", "apres 3 a 5 tentatives", "apres 2 a 3 tentatives", "immediat"))
    > 
    > mat = matrix(b, nrow=4)
    > text(graphe3, mat)
    sachant que ce sont ces valeurs ci-dessous qui devraient s'afficher:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    > mat
         [,1] [,2] [,3] [,4]
    [1,]   68   70   70   70
    [2,]   20   20   20   20
    [3,]    6    5    5    5
    [4,]    5    4    4    5


    Je reste à votre disposition si besoin d'expliquer mon code ou de plus d'informations sur ma demande.

    Troncon

  2. #2
    Membre averti
    Homme Profil pro
    Enseignant Chercheur
    Inscrit en
    Juillet 2009
    Messages
    122
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Enseignant Chercheur

    Informations forums :
    Inscription : Juillet 2009
    Messages : 122
    Points : 306
    Points
    306
    Par défaut
    Salut,

    si je comprends bien, tu souhaites afficher les valeurs contenues dans ta matrice mat dans les cellules de ton barplot. Si c'est bien cela, le code suivant devrait faire l'affaire:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    graphe3 = barplot(b, col = c("green", "purple", "blue", "red"))
    mat <- matrix(b,nrow=4)
    for (i in 1:4) text(graphe3[i], (cumsum(mat[,i]) + cumsum(c(0,mat[1:3,i])))/2, labels=as.character(mat[,i]))
    C'est à adapter à tes besoins et il doit certainement y avoir une solution plus élégante mais cela fonctionne. L'idée consiste à afficher chaque valeur de la colonne i a la hauteur moyenne de la cellule associée.

    Bonne soirée

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Développeur décisionnel
    Inscrit en
    Janvier 2013
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Développeur décisionnel
    Secteur : Distribution

    Informations forums :
    Inscription : Janvier 2013
    Messages : 4
    Points : 5
    Points
    5
    Par défaut
    Bonjour Meseira,

    C'est tout à fait cela dont j'avais besoin.

    Merci beaucoup pour ton aide.

    Je te souhaite une excellente journée

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Ajouter des étiquettes de colonnes sur toutes les feuilles du classeur
    Par Akane69 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 05/07/2013, 09h26
  2. Réponses: 1
    Dernier message: 27/11/2010, 14h27
  3. [XL-2003] Graphiques - Emulation des étiquettes de données
    Par cafeine dans le forum Contribuez
    Réponses: 0
    Dernier message: 12/05/2010, 14h27
  4. Réponses: 7
    Dernier message: 20/03/2007, 16h32
  5. Ajout d'étiquettes de données sur un graphe MSCHART type 2dXY
    Par larep dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 15/01/2007, 21h37

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo