Discussion :

[pitchu]

Bonjour,

J'ai un graphe représentant deux ensembles de points v1 et v2 et je voudrais donner aux points un nom, le nom correspondant à la colonne id du tableau dt (Chaque points des deux ensembles ont le même noms).

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
dt <- data.frame("id" = paste0("id", 1:5),
                 "v"  = sample(11:20, 5),
                 "v1" = sample(9:18, 5),
                 "v2" = sample(6:15, 5))
 
p <- ggplot(dt, aes(x=v))+ #, label=id)) +                   
  geom_point(aes(y=v1, colour="v1")) +  # first layer
  #geom_text(aes(label=id),hjust=0, vjust=0) +
  geom_point(aes(y=v2, colour="v2")) +  # second layer
  #geom_text(aes(label=id),hjust=0, vjust=0) +
  geom_abline() +
  labs(title = "", x = "x", y = "y", subtitle = "") + 
  scale_color_manual(name = element_blank(),
                     labels = c("v1", "v2"),
                     values = c("v1" = "green", "v2" = "red")) +
  theme(legend.position = "bottom")

[tototode]

Bonjour,

en utilisant aussi library(tidyr) je ferai :

Code :

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

1
2
3
4
5
g <- dt %>% pivot_longer(cols = 3:4) %>%
 ggplot(aes(x = v, y = value, color = name)) + geom_abline() + geom_point() +
 geom_text(aes(label = id), color = "black", nudge_x = 0.3) +  
 scale_color_manual(name ="", values = c("v1" = "green", "v2" = "red")) +
 theme(legend.position="bottom") + xlab("x")

cdlt

[pitchu]

Bonjour,

Merci de votre aide.

Quand j’exécute votre code j'ai un message d'erreur disant: (j'ai exécuté la commande library(tidyr); library(ggplot2)

Code :

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

1
2
3
 
Error in pivot_longer(., cols = 3:4) : 
  could not find function "pivot_longer"

Si non à partir de mon code il fallait rajouter la colonne v1 et v2 dans geom_text(aes(y=))

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
ggplot(dt, aes(x=v))+      
  geom_point(aes(y=v1, colour="v1")) +   # first layer
  geom_text(aes(y=v1,label=id),hjust=0, vjust=0) +
  geom_point(aes(y=v2, colour="v2")) +  # second layer
  geom_text(aes(y=v2,label=id),hjust=0, vjust=0) +
  geom_abline() +
  labs(title = "", x = "x", y = "y", subtitle = "") + 
  scale_color_manual(name = element_blank(),
                     labels = c("v1", "v2"),
                     values = c("v1" = "green", "v2" = "red")) +
  theme(legend.position = "bottom")

[tototode]

Bonjour,

Quand j’exécute votre code j'ai un message d'erreur disant: (j'ai exécuté la commande library(tidyr); library(ggplot2)

Probablement parce que ta version de tidyr est trop ancienne. Il te faut la mettre à jour.
Une bonne pratique à prendre quand tu travailles avec ggplot2 c'est de travailler sur des tableaux en long plutôt que large, ce qui t'évitera de multiplier les layers et les geom.

cdlt

[pitchu]

Bonjour,

merci de votre aide