title: Pretty summaries for statistical models
body: <p>I am looking for a pretty way to see the statistical model summaries in R. In the following example, I want to see  cyl_6 or cyl.6 instead of cyl6. How can I do that?</p>
  
  <pre><code>library(dplyr)
  library(broom)
  
  mean_mpg &lt;- mean(mtcars$mpg)
  
  # creating a new variable that shows that Miles/(US) gallon is greater than the mean or not
  
  mtcars &lt;-
    mtcars %&gt;%
    mutate(mpg_cat = ifelse(mpg &gt; mean_mpg, 1,0))
  
  mtcars$cyl &lt;- as.factor(mtcars$cyl)
  
  model &lt;-
  mtcars %&gt;%
    select (cyl,vs, am, mpg_cat) %&gt;%
  
    glm(formula = mpg_cat ~ .,
        data = ., family = "binomial")
  
  
  tidy(model)
  </code></pre>
  
  <p><a href="https://i.stack.imgur.com/IVp5c.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/IVp5c.png" alt="enter image description here"></a></p>