data(data_mod_cat_num_2w)
lm_out <- lm(y ~ x*city*w + c1 + c2, data_mod_cat_num_2w)
out <- cond_effects(
wlevels = c("city", "w"),
x = "x",
fit = lm_out
)
out
plot(out, facet_grid_cols = "city", graph_type = "tumble")
Run the code above in your browser using DataLab