# NOT RUN {
data(efc)
fit <- lm(barthtot ~ c12hour + neg_c_7 + c161sex + c172code, data = efc)
ggalleffects(fit)
library(ggplot2)
fit <- lm(barthtot ~ c12hour + neg_c_7 + c160age, data = efc)
mydf <- get_complete_df(ggalleffects(fit))
ggplot(mydf, aes(x, predicted)) +
geom_line() +
facet_wrap(~group, scale = "free_x", ncol = 1)
# }
Run the code above in your browser using DataLab