# Main effect plot with 1 categorical variable
fit_1 = lavaan::HolzingerSwineford1939 %>%
dplyr::mutate(school = as.factor(school)) %>%
lm(data = ., grade ~ school)
anova_plot(fit_1,predictor = school)
# Interaction effect plot with 2 categorical variables
fit_2 = lavaan::HolzingerSwineford1939 %>%
dplyr::mutate(dplyr::across(c(school,sex),as.factor)) %>%
lm(data = ., grade ~ school*sex)
anova_plot(fit_2)
# Interaction effect plot with 1 categorical variable and 1 continuous variable
fit_3 = lavaan::HolzingerSwineford1939 %>%
dplyr::mutate(school = as.factor(school)) %>%
dplyr::mutate(ageyr = as.numeric(ageyr)) %>%
lm(data = ., grade ~ ageyr*school)
anova_plot(fit_3)
Run the code above in your browser using DataLab