Ci dessous mon script pour afficher la figure.
Code : Tout sélectionner
debits_modelises <- c(120,90,80,65,50,35,20)
yi <- c(146,128,105,73.7,34.4,23,20.2)
xi <- seq(0,length(yi)-1)
absc_deb <- c(1.348193,2.479354,2.798400,3.221460,3.603515,3.984569,5.999857)
chro <- data.frame(xi,yi,debits_modelises,absc_deb)
chro_plot <- ggplot(data = chro) +
geom_line(aes(x=xi,y=yi)) +
geom_point(aes(x = absc_deb, y=debits_modelises, group=debits_modelises), size=5, shape = 8, show.legend = T) +
ggtitle("Chronique de débit") + xlab("Heure") + ylab("Débit (m3/s)") +
theme_classic()
chro_plot
J'aimerai afficher une légende "Débits modélisés" raccordé à un point de shape=8 pour pouvoir faire comprendre aisément que ces points correspondent au débit modélise.
Ca ne m'a pas l'air très compliqué mais je n'ai pas trouvé sur internet.
J'ai essayé quelques variantes avec "group=" et "show.legend=" sans succès.
Merci pour votre aide !
Colin.