Fehler beim Hinzufügen mehrerer linearer Regressionslinien in ggplot

Question

Ich versuche, meine (mehrere) lineare Regressionslinien auf meinem ggplot hinzuzufügen. Ich habe zwei Dummies (Morgen-Abend) für den Morgen. Das Diagramm ist korrekt, aber es gibt mir einen Fehler, wenn ich die Regressionslinien hinzufügen möchte. Hier ist der Code:

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 

Dies ist der Fehler:

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 

Hat jemand eine Idee, wo ich etwas falsch gemacht?

Answer 1

ich diese Ihnen helfen, noch Hoffnung:

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