Thank you for reply
Yes
install.packages("VGAM", dep=T)
library("VGAM")
x<-seq(-4, 4, length.out=1000)
y.gumbel=dgumbel(x) # Loi Gumbel
y.weibull=dweibull(x,shape=1) # Loi Weibull
y.frechet=dfrechet(x,shape=1) # Loi Frechet
y<-c(y.gumbel, y.weibull,y.frechet)
GEV<-rep(c("Gumbel","Weibull","Frechet"), each=1000)
data <- data.frame(x=x, y)
library(ggplot2)
p<-ggplot(data, aes(x=x, y=y, color=GEV)) +
labs(x = "x", y = "")+
geom_line(lwd=1)+
ggtitle("GEV")+ labs(title = NULL)
p