Eda
/
Conf-JRES-April-Pappso
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge branch 'master' of ssh://forge.chapril.org:222/Eda/Conf-JRES-April-Pappso

This commit is contained in:
Rusconi Filippo 2022-01-06 10:22:48 +01:00
parent 78bac6447d 385ea05377
commit af9d06c33a
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
deluge/deluge.R Normal file
View File

@ -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