乐于分享
好东西不私藏

跟着《管理世界》学习-R软件-双重机器学习-论文复刻

跟着《管理世界》学习-R软件-双重机器学习-论文复刻

跟着《管理世界》学习-R软件双重机器学习-论文复刻

《管理世界》有一篇论文采用R软件进行双重机器学习分析操作,相关结果如下:

R软件操作结果

1、加载安装包

2、执行相关结果命令

将上述结果进行整理,可以与原文进行对比,结论如下:

结果成功复刻了!与论文附表3对比:

3、结果对比表

规格
论文附表3系数 (SE)
复刻系数 (SE)
是否一致
demand → patent(+1)
15.534***
 (0.641)
15.267***
 (0.715)
✅ 非常接近,正向显著
science → patent(+1)
13.854***
 (0.667)
13.190***
 (0.647)
✅ 非常接近,正向显著
demand → quality(+1)
1.977***
 (0.339)
2.520***
 (0.304)
✅ 方向一致,正向显著(系数略大)
science → quality(+1)
1.393***
 (0.171)
1.747***
 (0.166)
✅ 方向一致,正向显著(系数略大)
样本量N
970
970(1026→na.omit后)
✅ 一致

4、结论

复刻基本成功!

  • 四个系数全部在1%水平正向显著(***),与论文完全一致
  • 系数大小有轻微差异(5%~25%左右),这是随机森林的正常随机性导致的(不同R/ranger版本、随机种子差异),方向和显著性完全吻合
  • 样本量N=970,与论文一致

如果想让系数更接近论文值,可以尝试设置 n_rep=10(重复10次取平均)来减小随机波动:


双重机器学习论文操作经验

1、需要从R输出中提取哪些值?

每个回归需要汇报4个值

需要提取的值
R代码中对应的对象
系数(θ)
Estimate
标准误(括号里)
Std_Error
显著性星号
根据 p_value 判断(<0.01→***, <0.05→**, <0.1→*)
样本量N
数据清洗后的行数(即970)

2、复刻结果 vs 论文结果 对比汇总

根据你的输出:

         Y       D  Estimate Std_Error    t_stat       p_valued  oecdpat  demand 15.267106 0.7153934 21.340854 4.742097e-101d1 oecdpat science 13.189841 0.6474927 20.370640  3.046724e-92d2 quality  demand  2.520023 0.3039082  8.292054  1.113093e-16d3 quality science  1.746919 0.1658026 10.536137  5.886727e-26

整理成论文附表3同款格式

附表3 双重机器学习结果(你的复刻)

(1) patent_{t+1}
(2) patent_{t+1}
(3) quality_{t+1}
(4) quality_{t+1}
demand
15.267***
2.520***
(0.715)
(0.304)
science
13.190***
1.747***
(0.647)
(0.166)
控制变量
时间固定效应
国家固定效应
N
970
970
970
970

注:分别表示在1%、5%、10%水平上显著,括号内为基于正交得分的标准误。

3、与论文原文结果对比

(1) patent
(2) patent
(3) quality
(4) quality
论文 demand
15.534*** (0.641)
1.977*** (0.339)
你的 demand
15.267*** (0.715)
2.520*** (0.304)
论文 science
13.854*** (0.667)
1.393*** (0.171)
你的 science
13.190*** (0.647)
1.747*** (0.166)
论文 N
970
970
970
970
你的 N
970
970
970
970

4、为什么系数有轻微差异?

这是完全正常的,原因:

  1. 随机森林随机性:不同R版本、ranger包版本,随机森林的抽样过程略有不同
  2. **未设置n_rep**:原代码n_rep=1(只做1次交叉拟合),每次运行都会有波动;论文可能用了更多重复次数或不同种子
  3. 关键判断标准
    • ✅ 方向一致(全部为正)
    • ✅ 全部1%显著(***)
    • ✅ 系数数量级一致
    • ✅ N=970完全一致

结论:复刻成功,结果可信

更多关于双重机器学习R操作应用的入门指南手册,下一篇推文继续讲解!


2026年Stata暑假班
Claude助力双重机器学习&因果推断应用
2017-2026年
Stata课程,已持续开设10年