半正常情节

Question

我想添加一条通过原点的最佳拟合线，用于通过fawaway pacakage在R中绘制的半正常图，我该怎么做？这是我的半正常函数：

test=aov(Thickness~A*B*C*D,data=dss)

halfnorm((test$effect[-1])/2, nlab= round(length(test$effects[-1])/3,0), labs= names(test$effects[-1]),
             ylab= "abs|Factor Effects|",
             main= "Half Normal Plot") 

我应该写什么来画出最合适的线？

这是半正常情节的图像