diff --git a/README.Rmd b/README.Rmd
index a024903..d8aee21 100644
--- a/README.Rmd
+++ b/README.Rmd
@@ -293,7 +293,7 @@ gridExtra::grid.arrange(
 
 
 
-```{r, fig.width = 9}
+```{r, fig.width = 6}
 set.seed(10)
 dat <- data_frame(
     state = sample(state.name, 10),
@@ -313,11 +313,12 @@ dat %>%
         ) +
         theme_minimal() +
         theme(
-            panel.grid.major.x = element_blank()   
+            panel.grid.major.x = element_blank(),
+            axis.title.y = element_text(angle = 0)
         ) +
-        labs(x = 'State', y = 'Cash Flow', 
+        labs(x = 'State', y = 'Cash\nFlow', 
             title = "Look at How Professional I Look",
-            subtitle = 'For that extra professional look.'
+            subtitle = 'Subtitles: For that extra professional look.'
         )
 ```
 
diff --git a/README.md b/README.md
index ab9c0e3..ad847bd 100644
--- a/README.md
+++ b/README.md
@@ -73,7 +73,7 @@ functions (see [Plotting](#plotting) for usage).
 
 <!-- html table generated in R 3.4.1 by xtable 1.8-2 package -->
 
-<!-- Wed Sep 06 21:16:33 2017 -->
+<!-- Wed Sep 06 21:26:07 2017 -->
 
 <table>
 
@@ -793,11 +793,12 @@ Plotting
             ) +
             theme_minimal() +
             theme(
-                panel.grid.major.x = element_blank()   
+                panel.grid.major.x = element_blank(),
+                axis.title.y = element_text(angle = 0)
             ) +
-            labs(x = 'State', y = 'Cash Flow', 
+            labs(x = 'State', y = 'Cash\nFlow', 
                 title = "Look at How Professional I Look",
-                subtitle = 'For that extra professional look.'
+                subtitle = 'Subtitles: For that extra professional look.'
             )
 
 ![](tools/figure/unnamed-chunk-15-1.png)
diff --git a/tools/figure/unnamed-chunk-15-1.png b/tools/figure/unnamed-chunk-15-1.png
index 4e9e7b7..c475af3 100644
Binary files a/tools/figure/unnamed-chunk-15-1.png and b/tools/figure/unnamed-chunk-15-1.png differ