r - forループを使用せずに、係数の2つのベクトルを指定してggplotを使用して複数の行を追加する方法は?

Question

for ループの使用は大幅に遅くなり、正しくないようです。誰かがgeom_abline（intercept、slope）で他の方法を使用できれば幸いです。変数 Coeff は、すべてのパラメーターの 4 つのデータ フレームを含むリストであり、各データ フレームには 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")
}