sensemop.blogg.se

Stat_function(fun = pIGAMMA, args =list(mu= 4.520,sigma=2.336,log=FALSE), linetype="solid",aes(colour = "ECEARTH3"))+ Xlim(c(xlower, xupper)) + stat_function(fun = pNO, args =list(mu= 85.433,sigma=2.208) ,linetype="solid", aes(colour = "Observed"))+ Plot2<- ggplot(ame(x = c(xlower, xupper)), aes(x = x)) + Legend.title = element_text(face="plain", size = 10), Theme(plot.title = element_text(hjust = 0.5),Ī = element_text(face="plain", colour="black", size = 12),Ī = element_text(face="plain", colour="black", size = 12), Labs(x = "Monthly average Precipitation (mm)", y = "PDF") +

Stat_function(fun = dIGAMMA, args =list(mu= 4.520,sigma=2.336,log=FALSE), linetype="solid",aes(colour = "ECEARTH3"))+ Xlim(c(xlower, xupper)) + stat_function(fun = dNO, args =list(mu= 85.433,sigma=2.208) ,linetype="solid", aes(colour = "Observed"))+ Plot1<-ggplot(ame(x = c(xlower, xupper)), aes(x = x)) + If anybody could help me with matter I would be thankful? Here is the code: library(gamlss)

Here I have tried to plot a PDF of 11 variables using ggplot2 and stat_function.I have managed to add legend by colour but I want also to differentiate the lines by line type also and incorporate it into the legend.