Az önce anladığım gibi, çoklu doğrusal regresyona uyan bir modeliniz olması durumunda , yukarıda bahsedilen çözüm işe yaramayacaktır.
Orijinal veri çerçeveniz için tahmin edilen değerleri içeren bir veri çerçevesi olarak satırınızı manuel olarak oluşturmanız gerekir (sizin durumunuzda data
).
Şöyle görünecek:
# read dataset
df = mtcars
# create multiple linear model
lm_fit <- lm(mpg ~ cyl + hp, data=df)
summary(lm_fit)
# save predictions of the model in the new data frame
# together with variable you want to plot against
predicted_df <- data.frame(mpg_pred = predict(lm_fit, df), hp=df$hp)
# this is the predicted line of multiple linear regression
ggplot(data = df, aes(x = mpg, y = hp)) +
geom_point(color='blue') +
geom_line(color='red',data = predicted_df, aes(x=mpg_pred, y=hp))
# this is predicted line comparing only chosen variables
ggplot(data = df, aes(x = mpg, y = hp)) +
geom_point(color='blue') +
geom_smooth(method = "lm", se = FALSE)