【视频】线性回归中的贝叶斯推断与R语言预测工人工资数据|数据分享-1

简介: 【视频】线性回归中的贝叶斯推断与R语言预测工人工资数据|数据分享

原文链接:http://tecdat.cn/?p=24141

在这个视频中,我们转向简单线性回归中的贝叶斯推断。 我们将使用一个参照先验分布,它提供了频率主义解决方案和贝叶斯答案之间的联系。 然后在R语言中用贝叶斯线性回归、贝叶斯模型平均 (BMA)来预测工人工资数据 查看文末了解数据获取方式)。


为了说明这些想法,我们将使用一个例子来预测身体脂肪。 获得准确的体脂测量值是很昂贵的,而且在家里也不容易做到。

image.png

相反,可以使用现成的测量值(如腹围)来预测体脂百分比的预测模型是很容易使用的,而且价格低廉。

image.png

图中显示了从水下称重得到的体脂百分比和多名男性的腹围。

为了预测体脂,我们可以从一个线性回归开始,在散点图中加入了回归线。

这条线的估计斜率为0.63,截距约为-39%。 每增加一厘米,我们预计体脂会增加0.63%。 负的截距过程作为一个物理模型没有意义,但预测一个腰围为0厘米的男性也没有意义。 尽管如此,这个线性回归可能是一个准确的近似值,用于预测目的。 随着测量结果在这个人群的观察范围内。

我们的最佳估计线使用α和β的通常平方估计值来获得拟合值和预测值。

image.png


提供拟合误差估计的残差是观察值和预测值之间的差异,用于诊断以及估计sigma平方。 这是通过平均平方误差,即平方误差之和除以自由度。

记住,剩余自由度是样本量减去模型中的回归系数。

模型和先验

让我们从基准的角度来看看估计的情况。 我们将从与OLS相同的模型开始,但有一个额外的假设,即误差是正态分布的常数变体。

我们经常加上这个假设,以获得具有常数平方的置信区间。 因此,在频率主义回归中经常使用的任何诊断图都可以在这里用来检查这个假设。

对于共轭分析,先验是以西格玛为条件的回归系数的双变量正态分布。Sigma在这里提供了响应的单位比例。

从边际上看,α是正态分布,给定西格玛的平方,以注意不在这个无单位规模参数作为子α的方差控制。 同样地,β是正态分布,给定西格玛的平方,其平均值为b0,方差控制由参数S次β。

阿尔法和贝塔之间的协方差,是西格玛平方乘以一个参数,这个参数描述了我们对阿尔法和贝塔如何共同变化的先验信念。 如果s alpha beta是0,那么先验的信念是,alpha将独立于beta,条件是sigma平方。

为了完成规范,我们使用共轭先验sigma平方,其中1动方差有一个自由度为N的gamma分布,sigma平方不是对sigma平方的先验估计。 这与我们在以前的视频中使用的先验相似。 由于共轭的关系,后验分布将是正态伽马分布,有简单的规则来更新参数。


image.png


参照先验和后验分布

提供一个贝叶斯分析作为起点是很有用的。 参照先验分布是作为那些方差参数到无穷大时的正态分布的极限得到的,并且在α和β中是平坦或均匀的。 而共轭伽马先验的极限,先验自由度为0,提供了我们在以前视频中使用的西格玛平方的参照先验。

与之相关的β的参照后验是一个以OLS估计值为中心的学生t分布,其尺度与OLS标准误差相同。 自由度是n减2,就像在频率分析中一样。

同样,α的边际后验分布也是一个学生t分布,其中心和尺度由OLS估计值给出。

利用这些参数的联合分布,我们可以得到x的任何值的预期体脂分布,这是一个学生t分布,有n减2的自由度。 估计值由OLS估计值给出。

image.png

使用统计软件,我们可以得到参数估计值、标准差和95%置信区间。 你应该能够确认,当我们使用这个参照先验时,贝叶斯估计值与频率主义估计值相同。

参数估计

image.png

参数、拟合值或预测的置信区间都是以后验均值加或减适当的t-quantile乘以标准差得到的。 主要区别在于对区间的解释。 例如,根据数据,我们现在认为,腰围每增加10厘米,体脂将增加5.8%至6.9%的可能性是95%。 当然,这个模型是一个近似值,所以要小心任何因果关系的解释,然而,它仍然可以对预测有帮助。

image.png


预测体脂

对于预测身体脂肪,我们将使用后验预测分布。

如果我们知道参数,一个新的观察将只是通过取平均值来获得,基于我们的人口回归方程加上相关的不确定性,描述个体偏离人口平均值和x的程度。

鉴于手头的数据,我们的后验预测分布是一个具有n-2个自由度的t分布。 预测新值的最佳估计是人口线的后验平均值。 这与我们之前计算的拟合值是一样的,但是基于预测标准差的比例参数。

预测标准差包含了x处的回归线的后验不确定性。从最后一个项中,我们可以看到,当我们在数据的平均值附近进行预测时,变异性将是最小的。 随着处于x范围两端的x的值的变异性增加。

还有一个额外的估计值sigma squared,它来自于误差epsilon的不确定性,或者说我们期望观测值偏离回归线的程度。

image.png

图中显示了数据,预测方程是后验平均数,用红色表示,估计总体平均数的95%的点状区间用灰色虚线表示。 预测体脂的95%可信区间是外侧的虚线。 大多数数据都在预测区间内,正如人们所期望的那样。 然而,橙色圈出的点的体脂率远远低于模型的预期。


R语言用贝叶斯线性回归、贝叶斯模型平均 (BMA)来预测工人工资案例

下面,贝叶斯信息准则(BIC)和贝叶斯模型平均法被应用于构建一个简明的收入预测模型。

这些数据是从 935 名受访者的随机样本中收集的。该数据集是_计量经济学数据集_系列的一部分 。



加载包

数据将首先使用该dplyr 包进行探索 ,并使用该ggplot2 包进行可视化 。稍后,实现逐步贝叶斯线性回归和贝叶斯模型平均 (BMA)。

数据

数据集网页提供了以下变量描述表:

变量 描述
wage 每周收入(元)
hours 每周平均工作时间
IQ 智商分数
kww 对世界工作的了解得分
educ 受教育年数
exper 多年工作经验
tenure 在现任雇主工作的年数
age 年龄
married =1 如果已婚
black =1 如果是黑人
south =1 如果住在南方
urban =1 如果居住在都市
sibs 兄弟姐妹的数量
brthord 出生顺序
meduc 母亲的教育(年)
feduc 父亲的教育(年)
lwage 工资自然对数 wage


【视频】线性回归中的贝叶斯推断与R语言预测工人工资数据|数据分享-2

https://developer.aliyun.com/article/1489384

相关文章
|
数据采集 机器学习/深度学习 数据可视化
R语言从数据到决策:R语言在商业分析中的实践
【9月更文挑战第1天】R语言在商业分析中的应用广泛而深入,从数据收集、预处理、分析到预测模型构建和决策支持,R语言都提供了强大的工具和功能。通过学习和掌握R语言在商业分析中的实践应用,我们可以更好地利用数据驱动企业决策,提升企业的竞争力和盈利能力。未来,随着大数据和人工智能技术的不断发展,R语言在商业分析领域的应用将更加广泛和深入,为企业带来更多的机遇和挑战。
|
存储 数据采集 数据处理
R语言数据变换:使用tidyr包进行高效数据整形的探索
【8月更文挑战第29天】`tidyr`包为R语言的数据整形提供了强大的工具。通过`pivot_longer()`、`pivot_wider()`、`separate()`和`unite()`等函数,我们可以轻松地将数据从一种格式转换为另一种格式,以满足不同的分析需求。掌握这些函数的使用,将大大提高我们处理和分析数据的效率。
|
数据挖掘 数据处理
R语言统计基本概念:探索描述性统计与推断统计的奥秘
【8月更文挑战第30天】描述性统计与推断统计是R语言统计分析中的两大基石。描述性统计帮助我们直观地了解数据的分布特征和基本属性,而推断统计则允许我们基于样本数据对总体进行推断和预测。在数据分析的实际应用中,两者相辅相成,共同构成了数据分析的完整框架。掌握这两大概念及其在R语言中的实现方法,对于提升数据分析能力和决策效率具有重要意义。
R语言基于表格文件的数据绘制具有多个系列的柱状图与直方图
【9月更文挑战第9天】在R语言中,利用`ggplot2`包可绘制多系列柱状图与直方图。首先读取数据文件`data.csv`,加载`ggplot2`包后,使用`ggplot`函数指定轴与填充颜色,并通过`geom_bar`或`geom_histogram`绘图。参数如`stat`, `position`, `alpha`等可根据需要调整,实现不同系列的图表展示。
325 9
|
数据采集 数据可视化 数据挖掘
R语言在金融数据分析中的深度应用:探索数据背后的市场智慧
【9月更文挑战第1天】R语言在金融数据分析中展现出了强大的功能和广泛的应用前景。通过丰富的数据处理函数、强大的统计分析功能和优秀的可视化效果,R语言能够帮助金融机构深入挖掘数据价值,洞察市场动态。未来,随着金融数据的不断积累和技术的不断进步,R语言在金融数据分析中的应用将更加广泛和深入。
|
数据采集 机器学习/深度学习 数据挖掘
R语言数据清洗:高效处理缺失值与重复数据的策略
【8月更文挑战第29天】处理缺失值和重复数据是数据清洗中的基础而重要的步骤。在R语言中,我们拥有多种工具和方法来有效地应对这些问题。通过识别、删除或插补缺失值,以及删除重复数据,我们可以提高数据集的质量和可靠性,为后续的数据分析和建模工作打下坚实的基础。 需要注意的是,处理缺失值和重复数据时,我们应根据实际情况和数据特性选择合适的方法,并在处理过程中保持谨慎,以避免引入新的偏差或错误。
|
数据处理
R语言数据合并:掌握`merge`与`dplyr`中`join`的巧妙技巧
【8月更文挑战第29天】如果你已经在使用`dplyr`进行数据处理,那么推荐使用`dplyr::join`进行数据合并,因为它与`dplyr`的其他函数(如`filter()`、`select()`、`mutate()`等)无缝集成,能够提供更加流畅和一致的数据处理体验。如果你的代码中尚未使用`dplyr`,但想要尝试,那么`dplyr::join`将是一个很好的起点。
|
数据采集 存储 数据可视化
R语言时间序列分析:处理与建模时间序列数据的深度探索
【8月更文挑战第31天】R语言作为一款功能强大的数据分析工具,为处理时间序列数据提供了丰富的函数和包。从数据读取、预处理、建模到可视化,R语言都提供了灵活且强大的解决方案。然而,时间序列数据的处理和分析是一个复杂的过程,需要结合具体的应用场景和需求来选择合适的方法和模型。希望本文能为读者在R语言中进行时间序列分析提供一些有益的参考和启示。
|
8月前
|
数据采集 机器学习/深度学习 数据可视化
探索大数据分析的无限可能:R语言的应用与实践
探索大数据分析的无限可能:R语言的应用与实践
341 9
|
数据可视化 数据挖掘 API
【R语言实战】聚类分析及可视化
【R语言实战】聚类分析及可视化