library(ggplot2)
## Warning: le package 'ggplot2' a été compilé avec la version R 4.2.3
ggplot(data.frame(x = c(-3, 3)), aes(x)) +
  stat_function(fun = dnorm) + 
  stat_function(fun = dnorm, 
                xlim = c(1,3),
                geom = "area", fill="lemonchiffon4") + ylab("") +xlab("") +
geom_text(x=1.5, y=-0.01, label="VaR(h,P)= P-quantile de L")+
geom_text(x=1.5, y=0.05, label="(1-p)")+
geom_text(x=-0.05,y=0.1,label=("P"))+
  ylab("Densité de probabilité de la perte")