library(ggplot2) td <- tidy(x, conf.int = TRUE) ggplot(td, aes(estimate, term, color = term)) + geom_point() + geom_errorbarh(aes(xmin = conf.low, xmax = conf.high)) + geom_vline() + ggtitle("Coefficient plot, with 95% confidence intervals")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.