fit0<-lm(Y~X1)
fit1=rq(Y~X1,tau=0.05,data=pps9)
fit2=rq(Y~X1,tau=0.1,data=pps9)
fit3=rq(Y~X1,tau=0.15,data=pps9)
fit4=rq(Y~X1,tau=0.20,data=pps9)
fit5=rq(Y~X1,tau=0.25,data=pps9)
fit6=rq(Y~X1,tau=0.30,data=pps9)
fit7=rq(Y~X1,tau=0.35,data=pps9)
fit8=rq(Y~X1,tau=0.40,data=pps9)
fit9=rq(Y~X1,tau=0.45,data=pps9)
fit10=rq(Y~X1,tau=0.50,data=pps9)
fit11=rq(Y~X1,tau=0.55,data=pps9)
fit12=rq(Y~X1,tau=0.60,data=pps9)
fit13=rq(Y~X1,tau=0.65,data=pps9)
fit14=rq(Y~X1,tau=0.70,data=pps9)
fit15=rq(Y~X1,tau=0.75,data=pps9)
fit16=rq(Y~X1,tau=0.80,data=pps9)
fit17=rq(Y~X1,tau=0.85,data=pps9)
fit18=rq(Y~X1,tau=0.90,data=pps9)
fit19=rq(Y~X1,tau=0.95,data=pps9)
stargazer(fit0,fit1,fit2,fit3,fit4,fit5,fit6,fit7,fit8,fit9,fit10,fit11,fit12,fit13,fit14,fit15,fit16,fit17,fit18,fit19,type="html", out="models.html", report=('vc*t'))
写了个特别费劲的程序，从fit1写到fit20，怎样用简单的程序代替呢，stargazer显示出来的结果是第一张图，在一张页面上显示会很挤，我能不能用R语言，做出图2的效果,数据源是pps9

蓝色字体的是第一张图，黑色字体的是第二张图（也就是我想要出现的结果），两张黑色字体的图是一样的，刚开始上传附件时上传错了