r - 使用 stat_smooth 方法在 ggplot2 中进行 MM 稳健估计 = "rlm"

Question

函数 rlm (MASS) 允许对稳健回归进行 M 和 MM 估计。我想在ggplot2中绘制MM稳健回归的平滑度，但是我认为在stat_smooth中选择method =“rlm”时，自动选择的估计方法是M类型。

有没有办法通过ggplot2为rlm函数选择MM类型估计技术？

这是我的代码:

df <-  data.frame("x"=c(119,118,144,127,78.8,98.4,108,50,74,30.4,
50,72,99,155,113,144,102,131,105,127,120,85,153,40.6,133),
"y"=c(1.56,2.17,0.81,1.07,1.12,2.03,0.90,1.48,0.64,
0.91,0.85,0.41,0.55,2.18,1.49,1.56,0.82,0.93,0.84,1.84,
0.78,1.15,3.85,3.30,0.94))      

library(ggplot2)
library(MASS)      

ggplot(df,aes(x=x,y=y))+geom_point()+
stat_smooth(method="rlm",fullrange=TRUE)+xlim(0,160)

我已经用 rlm 摘要本身检查了结果，我很确定 ggplot2 正在使用(默认？)M 估计。

如何使用 rlm 函数的 MM 估计？

rlm(formula, ...,method = "MM")

提前谢谢了!

Answer 1

不幸的是两者stat_smooth和 rlm有一个 method范围。这使它变得有点困难:

ggplot(df,aes(x=x,y=y)) +
  geom_point() +
  stat_smooth(method=function(formula,data,weights=weight) rlm(formula,
                                                               data,
                                                               weights=weight,
                                                                method="MM"),
              fullrange=TRUE) +
  xlim(0,160)