从 qplot 获取回归系数

Question

我正在使用 qplot 绘制并拟合我的数据的斜率：

qplot(log(X),log(Y),geom=c("point","smooth"),method="gam",formula=y~ns(x,2))

它工作正常。但是如何获得绘制的回归斜率的系数？我知道我可以明确地使用例如 nls 来获得斜率。尽管如此，我想知道斜率 qplot 适合我的数据。我很感激任何建议。

Answer 1

这个怎么样：

g<-qplot(log(X),log(Y),geom=c("point","smooth"))
lookinside<-ggplot_build(g)$data[[2]]
smooth<-data.frame(cbind(x=lookinside$x,y=lookinside$ymax-lookinside$ymin))
lm(smooth$x~smooth$y)

  Call:
    lm(formula = smooth$x ~ smooth$y)

  Coefficients:
    (Intercept)     smooth$y  
  1.25482      0.06275 


qplot(smooth$x,smooth$y)+geom_abline(intercept=1.25482,slope=0.06275,color="red")