为何残差与杠杆率图中未显示Cook距离线？

你的残差与杠杆率图（）已经识别出3个潜在影响点，但Cook距离线没绘制出来，这大概率是默认绘图逻辑的小问题，给你几个直接的解决办法：

• 手动添加Cook距离阈值线
  先算出常用的Cook距离阈值（比如4/n，n是样本量），绘图后手动补上线条：

  # 生成基础图
  plot(leave_MRM1, 5)
  # 获取样本量
  n <- length(resid(leave_MRM1))
  # 添加4/n阈值线（红色虚线）
  abline(h = 4/n, col = "red", lty = 2)
  # 可选：添加阈值1的线条（蓝色虚线）
  abline(h = 1, col = "blue", lty = 2)
  

• 调整y轴范围让默认线条显示
  有时候默认y轴范围没包含Cook线的位置，手动扩展y轴即可：

  # 先获取最大Cook距离和阈值，设置y轴范围
  cook_max <- max(cook.distance(leave_MRM1), 4/length(resid(leave_MRM1)))
  plot(leave_MRM1, 5, ylim = c(0, cook_max * 1.1))
  

• 显式指定Cook距离阈值参数
  确认调用绘图时没有覆盖默认的cook.levels参数，显式指定让R绘制线条：

  plot(leave_MRM1, 5, cook.levels = c(0.5, 1))
  

你的图已经正常识别出高影响点，说明Cook距离计算没问题，只是线条没渲染出来，上面的方法都能解决这个问题。

内容的提问来源于stack exchange，提问作者Brenden