From 8be3d8873675ce533e8918524fee983db12b6b84 Mon Sep 17 00:00:00 2001
From: dchakro <35454738+dchakro@users.noreply.github.com>
Date: Tue, 21 Sep 2021 11:33:07 +0300
Subject: [PATCH] set hjust and vjust when x.axis.angle is 45

---
 DC_theme_generator.R | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/DC_theme_generator.R b/DC_theme_generator.R
index 9a173e8..c51e195 100644
--- a/DC_theme_generator.R
+++ b/DC_theme_generator.R
@@ -2,8 +2,8 @@ DC_theme_generator <- function(type,
                                legend = T, 
                                ticks = "out", 
                                x.axis.angle = 0, 
-                               hjust = 0.5, 
-                               vjust = 0.5, 
+                               hjust = NULL, 
+                               vjust = NULL, 
                                fontsize.cex = 1.5, 
                                fontfamily = "serif",
                                ax.fontstyle = "italic",
@@ -32,6 +32,14 @@ DC_theme_generator <- function(type,
   # x.axis.angle = 45  (i.e. angle for the x axis text)
   # hjust and vjust = to adjust the x axis text
   
+  
+  if(is.null(hjust)){
+    hjust <- ifelse(test = x.axis.angle==45,yes = 1.0,no = 0.5)
+  }
+  if(is.null(vjust)){
+    vjust <- ifelse(test = x.axis.angle==45,yes = 1.0,no = 0.5)
+  }
+  
   ticks <- tolower(ticks)
   fontfamily <- ifelse(test = tolower(fontfamily) %in% c("sans","serif","mono"),yes = tolower(fontfamily),no = fontfamily)