Buck9195/ggplot_themes
1
0
Fork 0
mirror of https://github.com/dchakro/ggplot_themes.git synced 2026-05-17 11:22:16 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions

set hjust and vjust when x.axis.angle is 45

Browse source
This commit is contained in:
dchakro 2021-09-21 11:33:07 +03:00
parent b16e24fa01
commit 8be3d88736
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
DC_theme_generator.R
View file

@ -2,8 +2,8 @@ DC_theme_generator <- function(type,
legend = T, legend = T,
ticks = "out", ticks = "out",
x.axis.angle = 0, x.axis.angle = 0,
hjust = 0.5, hjust = NULL,
vjust = 0.5, vjust = NULL,
fontsize.cex = 1.5, fontsize.cex = 1.5,
fontfamily = "serif", fontfamily = "serif",
ax.fontstyle = "italic", ax.fontstyle = "italic",
@ -32,6 +32,14 @@ DC_theme_generator <- function(type,
# x.axis.angle = 45 (i.e. angle for the x axis text) # x.axis.angle = 45 (i.e. angle for the x axis text)
# hjust and vjust = to adjust 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) ticks <- tolower(ticks)
fontfamily <- ifelse(test = tolower(fontfamily) %in% c("sans","serif","mono"),yes = tolower(fontfamily),no = fontfamily) fontfamily <- ifelse(test = tolower(fontfamily) %in% c("sans","serif","mono"),yes = tolower(fontfamily),no = fontfamily)