graphique evolution du stockage PAPPSO

deluge/deluge.R

@@ -0,0 +1,28 @@
+# Inserting data
+pappsodata <- data.frame(annee=rep(2001:2022,2),
+                     
+                     dd=c(0.1, 0.3, 0.4, 0.7),
+                     
+                     pappso=c(0.1, 0.1, 0.1, 0.1)
+                     )
+
+espace_dd <- c(c(0.1, 0.3, 0.4, 0.7),rep(0, 18))
+
+espace_pappso <- c(c(0.1, 0.1, 0.1, 0.1),rep(0, 18))
+
+pappsodata$type <- c(rep("dd", 22), rep("pappso", 22))
+
+pappsodata$espace <- c(espace_dd,espace_pappso)
+
+# Bar Plot
+library(ggplot2)
+
+
+plt <-ggplot(data=pappsodata, aes(x=annee, y=espace, colour = factor(type), shape = factor(type))) +
+  
+  geom_line() +
+  
+  geom_point() +
+  theme_classic()
+
+plt