mod = lm(mpg ~ wt * factor(am), mtcars)
coefs = data.frame(names(coef(mod)), coef(mod), confint(mod))
colnames(coefs) = c("term", "est", "lwr", "upr")
op = tpar(pch = 19)
# "errorbar" and "pointrange" type convenience strings
with(
coefs,
tinyplot(x = term, y = est, ymin = lwr, ymax = upr, type = "errorbar")
)
with(
coefs,
tinyplot(x = term, y = est, ymin = lwr, ymax = upr, type = "pointrange")
)
# Use `type_errorbar()` to pass extra arguments for customization
with(
coefs,
tinyplot(x = term, y = est, ymin = lwr, ymax = upr, type = type_errorbar(length = 0.2))
)
tpar(op)
Run the code above in your browser using DataLab