correction du graphe

1 year ago · a686213e23
parent 0fbcd7b039
commit a686213e23
2 changed files with 1 additions and 1 deletions
--- a/deluge/deluge.R
+++ b/deluge/deluge.R
@ -18,7 +18,7 @@ pappsodata$espace <- c(espace_dd,espace_pappso)
 library(ggplot2)


-plt <-ggplot(data=pappsodata, aes(x=annee, y=espace, colour = type, shape = type)) +
+plt <-ggplot(data=pappsodata[which(pappsodata$type == "PAPPSO"),], aes(x=annee, y=espace, colour = type, shape = type)) +
  
  geom_line() +
  geom_point() +
--- a/photo_olivier.png
+++ b/photo_olivier.png