29 lines
633 B
R
29 lines
633 B
R
# 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
|