R语言-简单模型画图

1.回归拟合

> plot(mtcars$mpg~mtcars$disp) 
> lmfit<-lm(mtcars$mpg~mtcars$disp)                        #线性回归模型
> abline(lmfit)                                            #画回归直线
> x <- -(1:100)/10 
> y <- 100 + 10 * exp(x / 2) + rnorm(x)/10 
> nlmod <- nls(y ~ Const + A * exp(B* x), trace=TRUE)      #非线性模型
> plot(x,y) 
> lines(x, predict(nlmod), col="red")                      #画拟合曲线
> plot(cars, main = "lowess(cars)") 
> lines(lowess(cars), col = "blue")                        #画局部加权回归平滑线
> lines(lowess(cars, f=0.3), col = "orange")               #f参数修改局部范围

2.线性回归模型的检验 

> lmfit<-lm(mtcars$mpg~mtcars$disp) 
> par(mfrow=c(2,2)) 
> plot(lmfit)