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 données sur histogrammes / ggplot


Sujet :

R

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Femme Profil pro
    Physicienne Médicale
    Inscrit en
    Mai 2019
    Messages
    33
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Physicienne Médicale

    Informations forums :
    Inscription : Mai 2019
    Messages : 33
    Par défaut Ajout données sur histogrammes / ggplot
    Bonjour,

    Je suis en train de réaliser des histogrammes pour différentes données d'une colonne (colonne = Acte) contenues dans une table (table = RECUEIL).
    Je souhaiterai écrire, pour chaque histogramme, une valeur du quantile de ces données filtrées par Acte, et ce toujours au même endroit sur le graphe (par exemple en haut à droite).
    1/ comment écrire cette valeur sur mon histogramme
    2/ comment faire pour que les coordonnées du texte écrit soit toujours au même endroit, mêmes si les valeurs de l'histogrammes varient (en x et en y) selon Acte.

    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
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
     
    # Boucle pour tous les actes
     
    for (cet_acte in unique(RECUEIL$Acte)){
     
    DFacte <- RECUEIL[RECUEIL$Acte==cet_acte,]
     
     
    # Création de l’HISTOGRAMME:
     
    ggplot(DFacte)  +  
    aes(x=PDS_Total_corrigé_Gy.cm2) +
    geom_histogram(alpha=0.7, fill="white", color="black", bins=30) +
    ggtitle(chartr("_", " " ,cet_acte)) + xlab("Produit Dose Surface (Gy.cm²)") + ylab("Nombre de procédures") +
    theme(plot.title = element_text(face="bold", colour = "blue", size = 12, hjust=0.5)) +
    theme(axis.title.y = element_text(face="bold", colour = "black", size = 10)) +
    theme(axis.title.x = element_text(face="bold", colour = "black", size = 10)) +
    geom_vline(aes(xintercept=quantile(PDS_Total_corrigé_Gy.cm2, 0.75)), color="red", linetype="dashed", lwd=1) +
     
     
    # Sauvegarde du Graphe:
     
    # extraire la spécialité
    Spe <- DFacte$Spécialité[1]
    ggsave(paste(Spe,paste0(cet_acte,".jpg"), sep="_"), device="jpg")
     
    # Effacer la DataFrame DFacte:
    rm(DFacte)
     
    }
    Et voici un exemple de ce que cela me donne pour un Acte donné (ici l'acte l'appelle : Pace Maker 1 ou 2 sondes) :

    Nom : Capture1.JPG
Affichages : 327
Taille : 28,0 Ko

    Et voici ce que j'aimerai obtenir (j'ai rajouté le cadre voulu en haut à droit avec paint pour exemple) :

    Nom : Capture2.jpg
Affichages : 268
Taille : 40,2 Ko

    Merci pour vos idées.
    Matou
    Images attachées Images attachées  

Discussions similaires

  1. [JFreeChart] Ajout valeur sur histogramme
    Par Yokooo dans le forum Débuter
    Réponses: 18
    Dernier message: 12/05/2010, 11h29
  2. [JFreeChart] Ajout valeur sur histogramme
    Par Yokooo dans le forum Débuter
    Réponses: 0
    Dernier message: 11/05/2010, 11h18
  3. Ajout donnée sur une liste
    Par zeralium dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 07/05/2008, 22h49
  4. Ajout d'étiquettes de données sur un graphe MSCHART type 2dXY
    Par Invité dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 15/01/2007, 21h37
  5. Réponses: 8
    Dernier message: 29/08/2006, 08h31

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