从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")