[Résolu] Changer la couleur du trait dans un graphique GGplot selon un facteur

[Sylvain Gaudin]

Bonjour,

Je possède un tableau de données comprenant 3 variables :
Date (au format date)
Peakflow (un entier)
Alimentation (un facteur, avec plusieurs modalités : « Normale », « Jeûne 1 », « Jeûne 2 » ...)

Je souhaite réaliser un graphique qui me donne l’évolution du Peakflow en fonction du temps, tout en faisant apparaître dans des couleurs différentes les périodes de jeûne.
J’ai fait plusieurs essais. Celui qui fonctionne le moins mal est le suivant :

Code : Tout sélectionner

ggplot(df3, aes(x = Date, y= PeakFlow, color = Alimentation))+
  geom_path(size = 1)+
  ylab("PeakFlow")+
  xlab("Jours")

Cependant, il ne change pas la couleur de la courbe, mais superpose des segments de couleur à la courbe principale.

https://drive.google.com/file/d/14_fgY5Am51Hpgp6hFFpWmbOsQofKEoz5/view?usp=sharing

J’ai essayé en vain plusieurs autres options.

Merci pour votre aide.

[Mickael Canouil]

Bonjour,

pourriez-vous fournir un code/exemple reproductible ?

• Qu'est-ce qu'un code reproductible ?
• Comment insérer des données dans un message ?
• FAQ: What's a reproducible example (`reprex`) and how do I do one?

Cordialement,

[Sylvain Gaudin]

Bonjour,

Merci pour votre réponse. Voici un extrait de mes données :

Code : Tout sélectionner

Jour <- as.Date(c("2021-04-01","2021-04-02","2021-04-03","2021-04-04","2021-04-05","2021-04-06", "2021-04-07", "2021-04-08", "2021-04-09", "2021-04-10"))
Peakflow <- c(287,340,312,322,290,310,267,322,298,310)
Alimentation <- as.factor(c("Normale","Normale","Normale","Jeûne","Jeûne","Normale","Normale","Jeûne","Jeûne","Jeûne"))

df <- data.frame(Jour, Peakflow, Alimentation)

et le code que j'utilise :

Code : Tout sélectionner

library(ggplot2)

ggplot(df, aes(x = Jour, y= Peakflow, color = Alimentation))+
  geom_path(size = 1)+
  ylab("PeakFlow")+
  xlab("Jours")

[Mickael Canouil]

Bonjour,

l'astuce est de définir "group" pour que cette aesthetique ne prenne pas par défaut colour/fill/shape/etc.

Code : Tout sélectionner

df <- data.frame(
  Jour = as.Date(c(
    "2021-04-01", "2021-04-02", "2021-04-03", "2021-04-04",
    "2021-04-05", "2021-04-06", "2021-04-07", "2021-04-08",
    "2021-04-09", "2021-04-10"
  )),
  Peakflow = c(287, 340, 312, 322, 290, 310, 267, 322, 298, 310),
  Alimentation = as.factor(c(
    "Normale", "Normale", "Normale", "Jeûne", "Jeûne",
    "Normale", "Normale", "Jeûne", "Jeûne", "Jeûne"
  ))
) 

Code : Tout sélectionner

library(ggplot2)
ggplot(df) +
  aes(x = Jour, y = Peakflow, color = Alimentation, group = 1) +
  geom_path(size = 1) +
  labs(x = "Jours", y = "PeakFlow") 

Cordialement,

[Sylvain Gaudin]

Un grand merci pour cette solution. C’est exactement ce qu’il me fallait !