r - 如何在不使用 for 循环的情况下使用 ggplot 添加多行给定系数的两个向量？

Question

使用 for 循环的速度明显较慢，而且看起来不正确。如果有人可以使用 geom_abline(intercept, slope) 的其他方法，我将不胜感激。变量 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")
}

Answer 1

您可以将向量传递给slope和intercept

g <- ggplot(data.frame(x=-10:10, y=-10:10), aes(x, y))+geom_point()
my_coefs <- data.frame(slope=-5:5, intercept=-5:5)

g + geom_abline(data=my_coefs, aes(slope=slope, intercept=intercept))