如何将转换后的回归绘制回原始比例？

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