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
Partager