已有数据，如何直接在图像中得出回归方程

wjhsd98

I<-c(350.0,345.3,337.1,331.5,323.1,314.2,305.7)
t<-c(75.0,69.0,60.0,54.3,45.8,38.9,30.0)
opar<-par(no.readonly = TRUE)
par(pin=c(2,3))
par(lwd=2,cex=1.5)
par(cex.axis=.75,font.axis=3)
plot(I,t,type = "b",pch=19,lty=5,col="blue",
     sub="This is my physical homework",
     xlab="I/mA",ylab="T/C"
     )
model<-lm(I~t)

par(opar)

chunfei_xu

根据对你的问题猜测来回答问题，你可以试一下以下代码，看一下是不是你要的效果
I<-c(350.0,345.3,337.1,331.5,323.1,314.2,305.7)
t<-c(75.0,69.0,60.0,54.3,45.8,38.9,30.0)
opar<-par(no.readonly = TRUE)
par(pin=c(2,3))
par(lwd=2,cex=1.5)
par(cex.axis=.75,font.axis=3)
plot(I,t,type = "b",pch=19,lty=5,col="blue",
      sub="This is my physical homework",
      xlab="I/mA",ylab="T/C"
      )
model<-lm(I~t)
lines(fitted(model),t)   #这行代码可以画出回归方程的曲线

par(opar)

wjhsd98

chunfei_xu 发表于 2017-10-30 15:28
根据对你的问题猜测来回答问题，你可以试一下以下代码，看一下是不是你要的效果
I

谢谢，
但我的意思是指相当于一个图例
不需要计算直接得出回归方程