From 385ea0537782d0544bd43769f6573f0625d865e1 Mon Sep 17 00:00:00 2001 From: Olivier Langella Date: Wed, 5 Jan 2022 19:40:57 +0100 Subject: [PATCH] graphique evolution du stockage PAPPSO --- deluge/deluge.R | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 deluge/deluge.R diff --git a/deluge/deluge.R b/deluge/deluge.R new file mode 100644 index 0000000..00e6d4a --- /dev/null +++ b/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