如何用L中的lm或abline绘制线性趋势

时间:2015-04-19 22:27:19

标签: r

我是R中的一个完整的新手,我遇到了线性趋势拟合的问题。

我的数据是大约4年的每日财务数据。本财政年度为260天(每周5天),因此总数据为913。 为简单起见,数据只有一个cloumb,包含913个数据和一个标题。

我可以毫无问题地绘制时间序列数据。但是当我尝试用lm绘制线性趋势时,我可以得到错误信息: “formula.default(object,env = baseenv()):无效的公式”

当我尝试使用abline绘制线性趋势时,我收到错误消息: “错误:$运算符对原子矢量无效”

我的代码如下。所以任何人都可以帮助我用lm或abline绘制线性趋势吗?我检查网络,看看如何使用lm或abline。一些例子使用lm和abline的“公式”,但我不明白我应该使用什么样的公式。

SE=read.csv(file="SE1.csv",head=TRUE,sep="") 
Price<-SE$Closingprice 
Price.SEK<-ts(Price, start=2011) 
plot(Price.SEK,main="Stockholm 30 Index from August 2011 to March 2015",lwd=1,col=4) 
str(Price.SEK) 
lm.01<-lm(Price.SEK)

1 个答案:

答案 0 :(得分:0)

非常感谢您的评论。我解决了以下问题:

SE=read.csv(file="SE.csv",head=TRUE,sep=";")

Date<-SE$Date
Da<-as.Date(Date,format="%m-%d-%Y")
Price<-SE$Closingprice
Price.SEK<-ts(Price)
plot(Price.SEK~Da, SE,xaxt = "n",type="l", main="Stockholm 30 Index from August 2011 to March 2015",lwd=1,col=4)
axis(1, Da, format(Da,"%m-%Y"),cex.axis = .7)
model=lm(Price.SEK~Da)
abline(model, col="red")