fix color pitfalls figure

clauswilke · Sep 22, 2018 · b610897 · b610897
1 parent 4366dbb
commit b610897
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/docs/pitfalls_of_color_use_files/figure-html/popgrowth-vs-popsize-colored-1.png b/docs/pitfalls_of_color_use_files/figure-html/popgrowth-vs-popsize-colored-1.png
diff --git a/pitfalls_of_color_use.Rmd b/pitfalls_of_color_use.Rmd
@@ -46,8 +46,11 @@ p_base <- ggplot(popgrowth_df, aes(x = pop2000, y = 100*popgrowth, color = as.ch
   ylab("population growth (%)\n2000 to 2010    ") +
   theme_dviz_grid() +
   theme(legend.text = element_text(size = 10),
+        legend.title = element_text(size = 12),
         legend.justification = "center",
-        plot.margin = margin(14, 14, 3, 0))
+        legend.box.margin = margin(14, 0, 28, 0),
+        legend.spacing.y = unit(2, "pt"),
+        plot.margin = margin(14, 14, 14, 0))
 
 p_comb <- plot_grid(p_base + theme(legend.position = "none"), get_legend(p_base), ncol = 1)
 stamp_bad(p_comb)