Bonsoir,

Le support de la fonction de densité de loi de Pareto est x>=1, par contre la fonction d'exponentielle x>=0. j'ai utilisé xlim=c(1,5) pour la loi de Pareto mais elle ça marche pas. j'ai utilisé la commande xlim(1,5) à la fin de cette programme mais elle supprime la partie de 0 à 1. Moi je voudrais les trois courbe définie sur (x=c(0,5)) et Pareto elle commence de 1.
Comment faire pour supprimer la partie de 0 à 1 pour la courbe de la loi de Pareto scellement .

Voici le programme
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
library("VGAM")
x=seq(0, 5, length.out=1000)
df1<-data.frame(x, y=dpareto(x,shape=1), Legende="Pareto")
df2<-data.frame(x, y=dexp(x, rate=1), Legende="Exponenteille")
df3<-data.frame(x, y=dnorm(x,mean=0,sd=1), Legende="Normale") 
 
df<- rbind(df1,df2,df3)
 
library(ggplot2) 
p1=ggplot(df)+ 
  geom_line(aes(x, y, colour = Legende),lwd=1)+
  scale_color_manual(values=c("green","red","blue"),name = '')+
  labs(x = "X", y = NULL) 
p1