使用for循环显着慢,只是看起来不对.如果有人可以使用geom_abline(拦截,斜率)的其他方法,我将不胜感激.变量Coeff是一个包含所有参数的四个数据帧的列表,每个数据帧有1001行(第一个是无用的).
p <- qplot(x,y,data = data,color = I("blue"))
for (i in 1:1000){
p <- p + geom_abline(intercept = Coeff[[1]]$Intercept[i+1], slope = Coeff[[1]]$X[i+1],alpha = 0.1,size = 0.1, colour = "red")
}
for (i in 1:1000){
p <- p + geom_abline(intercept = Coeff[[3]]$Intercept[i+1], slope = Coeff[[3]]$X[i+1],alpha = 0.1,size = 0.1, colour = "yellow")
}