1、 set.seed(100) a<- rnorm(100) library(car)qqPlot(a, main="qq plot", col="blue", col.lines="red") ## 绘图