机器学习-5 线性回归 with R

该博客介绍了如何使用R语言进行线性回归分析,包括一元线性拟合、多项式拟合和多元线性拟合。通过读取城市GDP数据,展示了散点图、拟合模型的详细结果、预测值、残差值以及拟合直线的绘制。内容参考了《ML & R语言实战》。
摘要由CSDN通过智能技术生成

一元线性拟合

  • 数据:见http://pan.baidu.com/s/1qu6dq
  • options(scipen = 100)
    
    # 读文件
    city_gdp <- read.table("D:/Sepcial_For_R/city_gdp.txt", 
                           sep = "\t",
                           col.names=c("city", "people", "gdp"), 
                           head = T);
    
    # 散点图,y ~ x
    plot(city_gdp$gdp ~ city_gdp$people)
    
    # 多元线性拟合
    # 线性拟合 lm(formula, data)
    #   formula: 执行拟合的模型形式,y ~ x1+x2+x3
    #   data: 包含拟合模型的数据框
    reg <- lm(city_gdp$gdp ~ city_gdp$people, data = city_gdp)
    
    # 拟合模型的详细结果
    summary(reg)
    
    # 查看拟合模型的预测值
    fitted(reg)
    
    # 查看拟合模型的残差值
    residuals(reg)
    
    # 作图
    plot(city_gdp$gdp ~ city_gdp$people,
         xlab="People",
         ylab="GDP")
    
    # 做拟合的直线
    abline(reg, col='red')
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值