analyses: ignored_patches: use common theme

Signed-off-by: Ralf Ramsauer <[email protected]>
lfd · Feb 19, 2021 · 0f3e7a2 · 0f3e7a2
1 parent 7d33ac6
commit 0f3e7a2
Showing 1 changed file with 12 additions and 13 deletions.
diff --git a/analyses/ignored_patches.R b/analyses/ignored_patches.R
@@ -109,11 +109,10 @@ ignored_by_week <- function(data, plot_name) {
                                      breaks = releases$date,
                                      labels = releases$release)
                  ) +
-    theme_bw(base_size = 15) +
-    theme(legend.position = 'top',
-          axis.text.x.top = element_text(angle = 45, hjust = 0)) +
     labs(color = '') +
-    facet_wrap(~list, scales = 'free')
+    facet_wrap(~list, scales = 'free') +
+    my.theme +
+    theme(axis.text.x.top = element_text(angle = 45, hjust = 0))
   filename <- file.path('ignored_total', plot_name)
   printplot(plot, filename)
 
@@ -132,9 +131,10 @@ ignored_by_week <- function(data, plot_name) {
                                      labels = releases$release)) +
     xlab('Date') +
     ylab('Total number of ignored patches per week') +
+    facet_wrap(~list, scales = 'free') +
+    my.theme +
     theme(legend.position = 'None',
-          axis.text.x.top = element_text(angle = 45, hjust = 0)) +
-    facet_wrap(~list, scales = 'free')
+          axis.text.x.top = element_text(angle = 45, hjust = 0))
   filename <- file.path('ignored_absolute', plot_name)
   printplot(plot, filename)
 
@@ -156,10 +156,10 @@ ignored_by_week <- function(data, plot_name) {
     scale_y_continuous(labels = scales::percent_format(accuracy = 1, suffix = "\\%")) +
     xlab('Date') +
     ylab('Ratio of ignored patches') +
-    #ylab('Ratio of correctly addressed maintainers') +
+    facet_wrap(~list, scales = 'free') +
+    my.theme +
     theme(legend.position = 'None',
-          axis.text.x.top = element_text(angle = 45, hjust = 0)) +
-    facet_wrap(~list, scales = 'free')
+          axis.text.x.top = element_text(angle = 45, hjust = 0))
   filename <- file.path('ignored_fraction', plot_name)
   printplot(plot, filename)
 }
@@ -189,11 +189,10 @@ composition <- function(data, plot_name) {
                                      breaks = releases$date,
                                      labels = releases$release)
     ) +
-    theme_bw(base_size = 15) +
-    theme(legend.position = 'top',
-          axis.text.x.top = element_text(angle = 45, hjust = 0)) +
     labs(color = '') +
-    facet_wrap(~list, scales = 'free')
+    facet_wrap(~list, scales = 'free') +
+    my.theme +
+    theme(axis.text.x.top = element_text(angle = 45, hjust = 0))
   filename = file.path('composition', plot_name)
   printplot(plot, filename)
 }