changing text size to 12 in viz

Author: leem44

viz.Rmd

@@ -357,7 +357,7 @@ co2_line <- ggplot(co2_df, aes(x = date_measured, y = ppm)) +
   geom_line() +
   xlab("Year") +
   ylab("Atmospheric CO2 (ppm)") +
-  theme(text = element_text(size = 14))
+  theme(text = element_text(size = 12))
 
 co2_line
 ```
@@ -399,7 +399,7 @@ co2_line <- ggplot(co2_df, aes(x = date_measured, y = ppm)) +
   xlab("Year") +
   ylab("Atmospheric CO2 (ppm)") +
   xlim(c(date("1990-01-01"), date("1993-12-01"))) +
-  theme(text = element_text(size = 14))
+  theme(text = element_text(size = 12))
 
 co2_line
 ```
@@ -478,7 +478,7 @@ labels and make the font more readable:
 faithful_scatter <- ggplot(faithful, aes(x = waiting, y = eruptions)) +
   geom_point() +
   labs(x = "Waiting Time (mins)", y = "Eruption Duration (mins)") +
-  theme(text = element_text(size = 14))
+  theme(text = element_text(size = 12))
 
 faithful_scatter
 ```
@@ -527,7 +527,7 @@ ggplot(can_lang, aes(x = most_at_home, y = mother_tongue)) +
   geom_point() +
   labs(x = "Language spoken most at home \n (number of Canadian residents)",
        y = "Mother tongue \n (number of Canadian residents)") +
-  theme(text = element_text(size = 14))
+  theme(text = element_text(size = 12))
 ```
 
 ```{r mother-tongue-hidden-summaries, echo = FALSE, warning = FALSE, message = FALSE}
@@ -594,7 +594,7 @@ ggplot(can_lang, aes(x = most_at_home, y = mother_tongue)) +
   geom_point() +
   labs(x = "Language spoken most at home \n (number of Canadian residents)",
        y = "Mother tongue \n (number of Canadian residents)") +
-  theme(text = element_text(size = 14)) +
+  theme(text = element_text(size = 12)) +
   scale_x_log10(labels = label_comma()) +
   scale_y_log10(labels = label_comma())
 ```
@@ -649,7 +649,7 @@ ggplot(can_lang, aes(x = most_at_home_percent, y = mother_tongue_percent)) +
   geom_point() +
   labs(x = "Language spoken most at home \n (percentage of Canadian residents)",
        y = "Mother tongue \n (percentage of Canadian residents)") +
-  theme(text = element_text(size = 14)) +
+  theme(text = element_text(size = 12)) +
   scale_x_log10(labels = comma) +
   scale_y_log10(labels = comma)
 ```
@@ -708,7 +708,7 @@ ggplot(can_lang, aes(x = most_at_home_percent,
   geom_point() +
   labs(x = "Language spoken most at home \n (percentage of Canadian residents)",
        y = "Mother tongue \n (percentage of Canadian residents)") +
-  theme(text = element_text(size = 14)) +
+  theme(text = element_text(size = 12)) +
   scale_x_log10(labels = comma) +
   scale_y_log10(labels = comma)
 ```
@@ -734,7 +734,7 @@ ggplot(can_lang, aes(x = most_at_home_percent,
   geom_point() +
   labs(x = "Language spoken most at home \n (percentage of Canadian residents)",
        y = "Mother tongue \n (percentage of Canadian residents)") +
-  theme(text = element_text(size = 14),
+  theme(text = element_text(size = 12),
         legend.position = "top",
         legend.direction = "vertical") +
   scale_x_log10(labels = comma) +
@@ -781,7 +781,7 @@ ggplot(can_lang, aes(x = most_at_home_percent,
   geom_point() +
   labs(x = "Language spoken most at home \n (percentage of Canadian residents)",
        y = "Mother tongue \n (percentage of Canadian residents)") +
-  theme(text = element_text(size = 14),
+  theme(text = element_text(size = 12),
         legend.position = "top",
         legend.direction = "vertical") +
   scale_x_log10(labels = comma) +
@@ -850,7 +850,7 @@ ggplot(can_lang, aes(
   geom_point(alpha = 0.6) + # set the transparency of the points
   labs(x = "Language spoken most at home \n (percentage of Canadian residents)",
        y = "Mother tongue \n (percentage of Canadian residents)") +
-  theme(text = element_text(size = 14)) +
+  theme(text = element_text(size = 12)) +
   scale_x_log10(labels = comma) +
   scale_y_log10(labels = comma) + 
   scale_color_brewer(palette = "RdYlBu")
@@ -967,7 +967,7 @@ islands_bar <- ggplot(islands_top12,
                           fill = landmass_type)) +
   geom_bar(stat = "identity") +
   labs(x = "Size (1000 square mi)", y = "Landmass",  fill = "Type") +
-  theme(text = element_text(size = 14))
+  theme(text = element_text(size = 12))
 
 islands_bar
 ```
@@ -1185,7 +1185,7 @@ morley_hist <- ggplot(morley_rel,
   labs(x = "Relative Accuracy (%)", 
        y = "# Measurements", 
        fill = "Experiment ID") +
-  theme(text = element_text(size = 14))
+  theme(text = element_text(size = 12))
 
 morley_hist
 ```