Discussion :

[le scrapper fou]

Bonjour,

Je voudrais afficher sur un même graphique plusieurs courbes mais j'obtiens une erreur. Je voudrais aussi mettre une couleur unique sur chaque courbe, j'ai essayé d'utiliser la fonction scale_color_manual() mais les courbes restent noires.

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
 
 
df <- data.frame(
  annee = rep(2010:2022),
  variable1 = rnorm(13),
  variable2 = rnorm(13),
  variable3 = rnorm(13)
)
couleurs <- rainbow(3)
 
p <- ggplot(df, aes(x = annee)) +
  labs(title = "Évolution des variables par rapport à l'année",
       x = "Année",
       y = "Valeur de la variable") +
  theme_minimal()
for (i in 2:ncol(df)){
  col <- names(df)[i]
  p <- p +
    geom_line(aes_string(y = col), size = 1)
}
 
#p <- p + scale_color_manual(values = couleurs)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
print(p)
Error: Discrete value supplied to continuous scale

[xavier-Pierre]

Bonjour , je pense que le mieux est de mettre le dataframe sous forme "tidy"

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
library(tidyverse)

df <- data.frame(
  annee = rep(2010:2022),
  variable1 = rnorm(13),
  variable2 = rnorm(13),
  variable3 = rnorm(13)
) |> 
  pivot_longer(-annee,names_to = "variables",values_to = "valeurs")
head(df)
couleurs <- rainbow(3)


p <- ggplot(df, aes(x = annee,y=valeurs)) +
  labs(title = "Évolution des variables par rapport à l'année",
       x = "Année",
       y = "Valeur de la variable") +
  theme_minimal()+
  geom_line(aes(color=variables))+
  scale_color_manual(values = couleurs)

bonne fêtes de fin d'année

[le scrapper fou]

Bonjour,

Merci de votre aide. Bonne année.