получение коэффициентов регрессии от 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")