library(broom)
library(dplyr)
data(mtcars)
m1 <- lm(mpg ~ wt + cyl + disp, data = mtcars)
m1_df <- broom::tidy(m1) %>%
relabel_predictors("(Intercept)" = "Intercept",
wt = "Weight",
disp = "Displacement",
cyl = "Cylinder")
dwplot(m1_df)
dwplot(m1, show_intercept = TRUE) %>%
relabel_predictors("(Intercept)" = "Intercept",
wt = "Weight",
disp = "Displacement",
cyl = "Cylinder")
Run the code above in your browser using DataLab