# 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