Add subtitle to first plot

FredHutch · Feb 8, 2024 · 0da7c5d · 0da7c5d
1 parent 9934dba
commit 0da7c5d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/app.R b/app.R
@@ -192,7 +192,8 @@ server <- function(input, output) {
       labs(x = NULL,
            y = "Total # of Visitors",
            fill = "Target Audience",
-           title = "Visitor Distribution across Educational Resources") +
+           title = "Visitor Distribution across Educational Resources",
+           subtitle = "'Everyone' is the primary target audience for the most visited resource, the ITN Website.") +
       ylim(c(0, 6000)) + 
       scale_fill_manual(values=cbPalette)
   })