broom and ggplot2

broom_ggplot2.R

library(broom)
library(ggplot2)

tidyfit <- tidy(fit)
tidyfit$xmin <- with(tidyfit, estimate - stderror)
tidyfit$xmax <- with(tidyfit, estimate + stderror)
ggplot(tidyfit, aes(x=estimate,y=term,xmin=xmin,xmax=xmax,height=0)) + 
  geom_point() + geom_vline(xintercept=0) + geom_errorbarh()

Nice! With dplyr/magrittr it can be even more space-efficient:

library(dplyr)
tidyfit <- fit %>% tidy() %>%
    mutate(xmin = estimate - stderror, xmax = estimate + stderror)

(dplyr also makes it easier to perform regressions on subgroups or replications).

Please note that as of version 0.3, the stderror column has been changed to std.error.