在同一图中绘制模拟回归线

问题描述

我使用r模拟了100条线性回归线的斜率和截距值。 现在，我想在同一图中绘制那些回归线。

基本上，输出应该是这样的

我对数据进行了如下模拟：

N=100
intercept=rnorm(N,178,20)
slope=rnorm(N,10)

weight=seq(30,60,100)
height=seq(-100,400,100)

现在我很难在同一图中绘制那些线。 谁能帮我解决这个问题？

谢谢。

解决方法

这将绘制多条线。我基本上是将sapply()用作for循环。您首先必须初始化绘图。您可以使用weight和height变量来做到这一点，但是您必须以不同于上面的方式指定它们。实际上，您真正需要的只是最小值和最大值。

weight=c(30,60)
height=c(-100,400)
plot(weight,height,type="n")

然后，您可以模拟截距和斜率并将线放入。

N=100
intercept=rnorm(N,178,20)
slope=rnorm(N,10)

sapply(1:N,function(i)abline(a=intercept[i],b=slope[i]))

这给了我类似以下的东西：

它看起来并不完全像您所提出的那样，但是我的猜测是，这张截距和坡度的独立随机图并未用于生成您的图形。机械师应该工作。