ggplotに複数の線形回帰直線を追加する際のエラー

Question

ggplotに私の（複数の）線形回帰直線を追加しようとしています。 私は朝のために2つのダミー（朝夕）を持っています。ダミー。 プロットは正しいですが、回帰直線を追加するときにエラーが表示されます。ここ はコードです：

regression_1 <- lm(weight ~ morning.dummy + dayNumber + (morning.dummy*dayNumber) + 
        I(dayNumber^2) + (I(dayNumber^2)*morning.dummy), 
        data=weight_data) 
summary(regression_1) 
#plot 
plot2 <- ggplot(data=weight_data,aes(x=dayNumber, y=weight, color=morning.dummy)) + 
      geom_point()+ 
      stat_smooth(method = "lm", formula = weight ~ morning.dummy + dayNumber + (morning.dummy*dayNumber) +I(dayNumber^2) + (I(dayNumber^2)*morning.dummy), size = 1) + 
      labs(y = "Weight in kg", x = "Day Number of weight measurment", subtitle = "Day 0 = 3 October 2010") 
plot2 

これはエラーです：

Error in grid.Call.graphics(C_setviewport, vp, TRUE) : 
    non-finite location and/or size for viewport 
In addition: Warning message: 
Computation failed in `stat_smooth()`: 
object 'dayNumber' not found 

誰かが私が間違って何かをするという考えを持っていますか？

Answer 1

私は、これはまだあなたを助け願っています：

library('ggplot2') 

# create test data 
weight <- runif(40) * 10 
morning <- weight * runif(length(weight)) 
weight_data <- data.frame(weight, morning) 

# test data 
ression_1 <- lm(weight ~ poly(morning, degree = 2)) 
plot(morning, weight) 
points(x=morning, y=regression_1$fitted.values, col='red') 

#plot in ggplot2 
plot2 <- ggplot(data=weight_data, aes(y=weight, x=morning))+ 
    geom_point()+ 
    stat_smooth(method = "lm", formula = y ~ poly(x, degree = 2), size = 1)+ 
    labs(y = "Weight in kg", x = "Day Number of weight measurment", subtitle = "Day 0 = 3 October 2010") 

plot2