increase monthly_domain readability

KonScience · Jul 10, 2015 · cb5d784 · cb5d784
1 parent ec20ab8
commit cb5d784
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/summarize-flattr-reports.R b/summarize-flattr-reports.R
@@ -190,7 +190,7 @@ monthly_domain_plot_fractions +
   scale_x_date(expand = c(0,0), breaks = "1 month", labels = date_format("%Y-%b"))  +
   scale_y_continuous(expand = c(0, 0))  +
   scale_fill_brewer(type = "qual")  +
-  guides(fill = guide_legend(reverse = TRUE, keywidth = 0.5, keyheight = 0.5))  +
+  guides(fill = guide_legend(reverse = TRUE, keywidth = 0.75, keyheight = 0.75))  +
   labs(title = "Fractions of Flattr Revenue by Button Locations",
        x = NULL, y = NULL, fill = "Domains")  +
   theme_classic(base_size = sqrt(N_things + N_months))