Verwenden Sie geom_smooth mit transformierten y

Question

Gibt es eine Möglichkeit geom_smooth zu verwenden, wenn die y Variable in der Formel transformiert wird? Zum Beispiel:

#This works: 
myplot <- qplot(speed, dist, data=cars) 
(myplot + geom_smooth(method="lm", formula=y~log(x))) 

#does not work 
(myplot + geom_smooth(method="lm", formula=log(y)~x)) 

Was ich bin, nachdem eine Zeile wie folgt aus:

myplot + geom_line(aes(x=speed, y=exp(predict(lm(log(dist)~speed))))) 

Answer 1

Sie können eine GLM für Gaußsche passen (normalverteilt) Daten und eine Log-Link. Dies ermöglicht stat_smooth zu verwenden und geben die entsprechenden Prognosen

(myplot + geom_smooth(method = "glm", formula = y~x, 
         family = gaussian(link = 'log')))