변환 된 회귀를 원래의 눈금으로 다시 플로팅하는 방법은 무엇입니까?

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