Merge pull request #4 from ednaMontpellier/modif_script4

feature1_script4

scripts/script4.R

@@ -70,7 +70,9 @@ plot <- ggplot(bird_sets, aes(x = x, id = id, split = y, value = n)) +
                            The heavier the line, the more votes cast with that particular combination.", 200),
        caption = "Data: **NZ Forest & Bird** | Modified from: **@jakekaupp**") +
   scale_x_discrete(labels = c("First Vote", "Second Vote", "Third Vote", "Fourth Vote", "Fifth Vote")) +
-  theme_jk()
+  theme_jk()+
+  theme(panel.background = element_rect(fill = "gray14",
+                                           colour = "gray14"))
 
 plot