全文链接：http://tecdat.cn/?p=26147
最近我们被客户要求撰写关于多项式曲线回归的研究报告，包括一些图形和统计输出。
本文使用的数据集记录了 1236 名新生婴儿的体重（查看文末了解数据获取方式），以及他们母亲的其他协变量
本研究的目的是测量吸烟对新生儿体重的影响。研究人员需要通过控制其他协变量（例如母亲的体重和身高）来隔离其影响。这可以通过使用多元回归模型来完成，例如，通过考虑权重 Y\_i 可以建模为
str(babis)
数据集的描述如下：
bwt是因变量，新生儿体重以盎司为单位。数据集使用 999 作为缺失值。gestation是怀孕的时间，以天为单位。999 是缺失值的代码。parity第一胎使用 0，否则使用 1，缺失值使用 9。age是母亲的年龄，整数。99 是缺失值。height是母亲的身高。99 是缺失值。weight是母亲的体重，以磅为单位。999 是一个缺失值。smoke是一个分类变量，表示母亲现在是否吸烟 (1) (0)。9 是缺失值。
这个问题的研究人员想要判断以下内容：
- 吸烟的母亲会增加早产率。
- 吸烟者的新生儿在每个胎龄都较小。
- 与母亲的孕前身高和体重、产次、既往妊娠结局史或婴儿性别（这最后两个协变量不可用）相比，吸烟似乎是出生体重的一个更重要的决定因素。
我们将专注于第二个判断：
从str()命令中注意到，所有的变量都被存储为整数。我将把缺失值转换为NAs，这是R中缺失值的正确表示。
bwt == 999] <- NA
# 有多少观察结果是缺失的？
sapply(babies, couna)
每当您在 R 中使用函数时，请记住，默认情况下它可能有也可能没有 na-action。例如，该 mean() 函数没有，并且 NA 在将缺少值的参数传递给它时简单地返回：
sapply(babies, mean)
您可以通过检查 mean() 函数帮助来纠正它，通过一个参数 na.rm=TRUE，它删除了 NAs。
sapply(babies, mean, na.rm = TRUE)
另一方面， 默认情况下summary() 会删除 NAs，并输出找到的 NAs 数量，这使其成为汇总数据时的首选。
summary(babies)
我们可以看到转换因子显示了不同的摘要，因为 summary() 操作根据变量类型而变化：
parity <- factor(parity, levels )
绘制数据是您应该采取的第一个操作。我将使用 lattice 包来绘制它，因为它的最大优势在于处理多变量数据。
require(lattice)
xyplot
为了拟合多元回归模型，我们使用命令 lm()。
点击标题查阅往期内容
[](http://mp.weixin.qq.com/s?__biz=MzU4NTA1MDk4MA==\&mid=2247497153\&idx=1\&sn=e3f38dfefab414599123af8865af8568\&chksm=fd92cbcacae542dc298239c9ad3944391481619166f8d5d0fb37582286f4d395edc9d45d3966\&scene=21#wechat_redirect)使用R语言进行多项式回归、非线性回归模型曲线拟合
左右滑动查看更多
01
02
03
04
model <- lm(bwt ~ ., data = babies)
这是总结：
summary(model)
注意R的默认动作是删除信息缺失的行。不过，如何解释这些系数呢？
如果j协变量xj是实值，那么系数βj的值就是在其他协变量不变的情况下，将xij增加1个单位对Yi的平均影响。\
如果j协变量xj是分类的，那么系数βj的值是对Yi从参考类别到指定水平的平均增量影响，而其他协变量保持不变。参考类别的平均值是截距（或参考类别，如果模型中有一个以上的分类协变量）。\
为了验证这些假设，R有一个绘图方案。
残差中的曲率表明，需要进行一些转换。尝试取bwt的对数，以获得更好的拟合（与妊娠期相比）。
summary(model.log)
为了简单起见，我会保留线性模型。给妊娠期增加一个二次项可能有用。公式通常保存^作为交互作用的快捷方式，所以（妊娠期+烟）^2与妊娠期*烟或妊娠期+烟+妊娠期：烟相同。
改进仍然很小，但它现在确实将观察样本 261 显示为异常值。这个观察有什么问题？
babies[261, ]
我们可以看到，而母亲的身高、年龄等都非常合理；这个婴儿异常早产。因此，将他/她剔除出模型。
拟合度有所提高，但现在870号婴儿显示为异常值......这可以继续下去，直到我们都满意为止。你还会做哪些转化？将吸烟和妊娠期交互作用会更好吗？
本文摘选 《 R语言多变量（多元）多项式曲线回归线性模型分析母亲吸烟对新生婴儿体重影响可视化 》 ，点击“阅读原文”获取全文完整资料。
点击标题查阅往期内容
面板平滑转换回归(PSTR)分析案例实现\
R语言时变面板平滑转换回归模型TV-PSTR分析债务水平对投资的影响\
面板平滑转换回归(PSTR)分析案例实现\
R语言自适应平滑样条回归分析\
R语言时间序列数据指数平滑法分析交互式动态可视化\
R语言中的广义线性模型（GLM）和广义相加模型（GAM）：多元（平滑）回归分析保险资金投资组合信用风险敞口\
R语言预测人口死亡率：用李·卡特（Lee-Carter）模型、非线性模型进行平滑估计\
基于R统计软件的三次样条和平滑样条模型数据拟合及预测\
R语言实现CNN（卷积神经网络）模型进行回归数据分析\
R语言中的多项式回归、B样条曲线(B-spline Curves)回归\
R语言泊松Poisson回归模型分析案例\
在R语言中实现Logistic逻辑回归\
R语言用多项式回归和ARIMA模型预测电力负荷时间序列数据\
R语言用逻辑回归、决策树和随机森林对信贷数据集进行分类预测\
R语言机器学习实战之多项式回归\
R语言自适应平滑样条回归分析\
R语言区间数据回归分析\
R语言逻辑回归和泊松回归模型对发生交通事故概率建模R语言线性回归和时间序列分析北京房价影响因素可视化案例\
R语言惩罚logistic逻辑回归（LASSO,岭回归）高维变量选择的分类模型案例\
R语言用标准最小二乘OLS，广义相加模型GAM ，样条函数进行逻辑回归LOGISTIC分类\
R语言实现CNN（卷积神经网络）模型进行回归数据分析\
R语言中实现广义相加模型GAM和普通最小二乘(OLS)回归\
R语言中使用非凸惩罚函数回归(SCAD、MCP)分析前列腺数据\
【视频】R语言实现CNN（卷积神经网络）模型进行回归数据分析\
R语言ISLR工资数据进行多项式回归和样条回归分析\
R语言中的多项式回归、局部回归、核平滑和平滑样条回归模型\
R语言随机搜索变量选择SSVS估计贝叶斯向量自回归（BVAR）模型\
R语言如何和何时使用glmnet岭回归\
R语言基于线性回归的资本资产定价模型（CAPM）\
Matlab马尔可夫区制转换动态回归模型估计GDP增长率\
R语言MCMC:Metropolis-Hastings采样用于回归的贝叶斯估计
