由于您缺少一些数据点,因此我采用了您提供的内容:六个点。
编辑-现在可以使用完整的示例
趋势线只是回归,回归以最简单的方式运行,如下所示:
a<-lm(outcome~predictor)
-- 在此示例中,对象 a 将保存您的回归参数。要获取新趋势线模型的值,只需使用predict(model_name)
, 或在您的情况下predict(a)
在情节中添加线条非常简单。只需说,其中 b 指定使用该函数lines(b)
后要绘制的线。plot()
总结一下:
[![myds <- c(23.0415,13.1965,10.4110,12.2560,9.5910,10.7160,9.9665,8.5845,8.9855,8.8920,10.3425,9.3820,9.0860,9.6870,8.5635,9.0755,8.5960,7.9485,8.3235,8.1910)
x <- (1:length(myds))
plot(myds)
#make the main plot
plot(x,myds,ylim=c(5,30),xlim=c(0,20))
#add linear trend
lines(predict(lm(myds~x)),col='green')
#one more trend
lines(predict(lm(myds~log(x))),col='red')][1]][1]
