将qqcomp与ggplot对象结合

Question

我正在使用传统分布拟合数据。我正在使用qqcomp将我的拟合分布绘制在qqplot中。我还要向该图添加数据qqplot。

我已经尝试用+来添加消息的常规ggplot（）方法：

  

q + p   错误：不知道如何在绘图中添加p

让我们说：

library(ggplot2) 
library(fitdistrplus)

z=rnorm(1000,5,1)+runif(1000,1,2)

fit.w=fitdist(z, "weibull")
fit.ln=fitdist(z, "lnorm")
fit.gam=fitdist(z,"gamma")
fitsc=list(fit.w, fit.ln,fit.gam)

###Comparison of fitted distributions
q=qqcomp  (fitsc, legendtext = plot.legend,plotstyle = "ggplot")
print(q)

###QQplot of the data

z=dataframe(z)

p=ggplot(z,aes(sample=z))+stat_qq()
print(p)

我想将图q和p合并为一个。我知道带有plotstyle =“ ggplot”的qqcomp会创建一个ggplot对象，因此我想有一种方法可以将这两个图结合起来。谢谢您的帮助。