Add 2 curves in 1 graph with Ggplot2

# Si on a deux bases de données, on peut accoler ces données de nombreuses façon (réaliser le liguage directement dans le fichier, réaliser un liguage avec des commandes R, faire deux Data.Frame et les lier avec la fonction rbind.

# Ici, un seul data frame (tableau) sera construit avec des données mises à la suite. Le taux de chlorophylle a été relevé à plusieurs date, à 2 profondeurs différentes (7 et 30 mètres). Les données sont directement accolées, les 19 premières ont été faites à 7 mètres et les 19 autres à 30 mètres.

dfr <- data.frame(Chlorophylle=c(0.197425776173285, 0.199669250902527, 0.220982260830325, 0.163773655234657, 0.206960543772563, 0.163773655234657, 0.0886172518050541, 0.222664866877256, 0.190134483303249, 0.197986644855596, 0.229198421052632, 0.137223947368421, 0.203130789473684, 0.175095789473684, 0.221574868421053, 0.283792894736842, 0.136240263157895, 0.134272894736842, 0.129600394736842, 0.168821473375451, 0.140778039259928, 0.232760503158845, 0.174991028880866, 0.186208402527076, 0.162651917870036, 0.0768390094765343, 0.169943210740072, 0.164334523916967, 0.174991028880866, 0.108697105263158, 0.240510789473684, 0.0757436842105264, 0.162799736842105, 0.223542236842105, 0.179522368421053, 0.134272894736842, 0.272972368421053, 0.121239078947369 ), Date=c("08/03/2000", "15/03/2000", "22/03/2000", "29/03/2000", "05/04/2000", "19/04/2000", "10/05/2000", "24/05/2000", "07/06/2000", "21/06/2000", "05/07/2000", "19/07/2000", "02/08/2000", "30/08/2000", "13/09/2000", "27/09/2000", "19/10/2000", "02/11/2000", "15/11/2000", "08/03/2000", "15/03/2000", "22/03/2000", "29/03/2000", "05/04/2000", "19/04/2000", "10/05/2000", "24/05/2000", "07/06/2000", "21/06/2000", "05/07/2000", "19/07/2000", "02/08/2000", "30/08/2000", "13/09/2000", "27/09/2000", "19/10/2000", "02/11/2000", "15/11/2000" ),

# On ajoute la variable profondeur pour les assigner à leurs données correspondantes (donc ici, "7m" répété 19 fois, puis à la suite "30m" répété aussi 19 fois.

Profondeur=c(rep(c("Sept"), each=19),rep(c("Trente"), each=19)) )

#On regarde le data.frame

dfr

library(ggplot2)

#On crée le ggplot

gg <- ggplot() + # On ajoute la ligne geom_line(data = dfr, aes(x = Date, y = Chlorophylle, colour = Profondeur, shape =Profondeur, group = Profondeur)) + # On ajoute des points geom_point(data = dfr, aes(x = Date, y = Chlorophylle, colour = Profondeur, shape =Profondeur, group = Profondeur), size = 2.5) + # Choisir ses propres couleurs scale_color_manual(values=c("green1", "green4")) +

# On mets les labels à la verticale theme(axis.text.x = element_text(angle = 90, hjust = 1))

#On regarde notre travail !