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

add option for plot title font size

Browse source
This commit is contained in:
dchakro 2021-10-14 17:08:50 +03:00
parent 7c37259bdc
commit 0f9d36dfeb
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
DC_theme_generator.R
View file

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