r - 具有 geom_smooth 的对数 y

Question

这个问题类似于这个问题:Use geom_smooth with transformed y

事实上，它是一样的，只是那里提供的解决方案不再有效。

我想要做的是在公式的 y 侧绘制一个具有 log(y) 的 geom_smooth。如果直接在formula做争论，它给出了一个奇怪的结果。因此，我将使用我提到的问题中使用的相同示例:

#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))

#no longer works:
(myplot + geom_smooth(method = "glm", formula = y~x,
                  family = gaussian(link = 'log')))

我所追求的是这样的一行:

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

Answer 1

是的，您说得对，似乎必要的语法发生了一些变化:

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