From 0f9d36dfeb6a225cb5b22d90f99f8b291a4065e8 Mon Sep 17 00:00:00 2001
From: dchakro <35454738+dchakro@users.noreply.github.com>
Date: Thu, 14 Oct 2021 17:08:50 +0300
Subject: [PATCH] add option for plot title font size

---
 DC_theme_generator.R | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/DC_theme_generator.R b/DC_theme_generator.R
index 5abd82f..2253df4 100644
--- a/DC_theme_generator.R
+++ b/DC_theme_generator.R
@@ -7,7 +7,8 @@ DC_theme_generator <- function(type,
                                fontsize.cex = 1.5, 
                                fontfamily = "serif",
                                ax.fontstyle = "italic",
-                               title.fontstyle = "bold.italic"){
+                               title.fontstyle = "bold.italic",
+                               title.fontsize.cex = 1.5){
   
   # #<---------------------------->
   # # You must include this section when:
@@ -57,7 +58,7 @@ DC_theme_generator <- function(type,
         plot.title = element_text(family = fontfamily,
                                   face = title.fontstyle,
                                   color = "black",
-                                  size = rel(fontsize.cex)),
+                                  size = rel(title.fontsize.cex)),
         axis.ticks.length = unit(ifelse(ticks=="in",-0.2,0.2),"cm"),
         axis.title = element_text(family = fontfamily,
                                   face = ax.fontstyle,
@@ -97,7 +98,7 @@ DC_theme_generator <- function(type,
         plot.title = element_text(family = fontfamily,
                                   face = title.fontstyle,
                                   color = "black",
-                                  size = rel(fontsize.cex)),
+                                  size = rel(title.fontsize.cex)),
         axis.ticks.length = unit(ifelse(ticks=="in",-0.2,0.2), "cm"),
         axis.title = element_text(family = fontfamily,
                                   face = ax.fontstyle,