変換された回帰を元のスケールにプロットする方法は？

Question

私は、応答がデータの元のスケールに戻ってログ変換された線形モデルから線をプロットしたいと思います。したがって、結果は元のスケール上の曲線でなければなりません。元のスケールでは、ログが変換されたスケール上で直線になります。私は前にこれを行っている知っているが、どのように:(私の人生のために思い出すことができないコード

# Data 
dat <- data.frame(c(1,2,3,4,5,6,7,8,9), c(5, 2.5, 1.25, .75, .375, .1625, 
.08, .04, .02) 
colnames(dat) <- c("X", "Y")     
plot(dat$X, log(dat$Y)) 

# Model 
mod <- lm(log(dat$Y)~dat$X) 
summary(mod) 

# transformed 
plot(dat$X, log(dat$Y), pch = 16) 
abline(mod) 

# back transformed 
plot(dat$X, dat$Y) 
# What do I do here to plot the curved regression line? 

を参照してくださいおかげ

Answer 1

# back transformed 
plot(dat$X, dat$Y) 
predicted <- predict(mod, type="r")  
lines(dat$X, exp(predicted), col = "blue") 

Answer 2

ggplotに問題がない場合：。！

library(ggplot2) 
ggplot(dat, aes(X,Y)) + geom_smooth() + geom_point()