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

updates

Browse source 
- display warning message when using legacy code
- Support title font style options
This commit is contained in:
dchakro 2021-06-13 03:15:31 +03:00
parent 2a8c075531
commit b16e24fa01
2 changed files with 18 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

18
DC_theme_generator.R
View file

@ -1,4 +1,14 @@
DC_theme_generator <- function(type, legend=T, ticks="out", x.axis.angle=0, hjust=0.5, vjust=0.5, fontsize.cex=1.5, fontfamily="serif", ax.fontstyle="bold.italic"){
DC_theme_generator <- function(type,
legend = T,
ticks = "out",
x.axis.angle = 0,
hjust = 0.5,
vjust = 0.5,
fontsize.cex = 1.5,
fontfamily = "serif",
ax.fontstyle = "italic",
title.fontstyle = "bold.italic"){
# #<---------------------------->
# # You must include this section when:
# # Distributing, Embedding, Using and/or Modifying this code.
@ -18,7 +28,7 @@ DC_theme_generator <- function(type, legend=T, ticks="out", x.axis.angle=0, hjus
# legent: T = left, F = no legend
# ticks: 'in', 'out'
# fontfamily: 'serif' , 'sans' , 'mono', 'Helvetica', 'Palatino'
# ax.fontstyle = 'plain', 'italic', 'bold', 'bold.italic'
# title.fontstyle and ax.fontstyle = 'plain', 'italic', 'bold', 'bold.italic'
# x.axis.angle = 45 (i.e. angle for the x axis text)
# hjust and vjust = to adjust the x axis text
@ -37,7 +47,7 @@ DC_theme_generator <- function(type, legend=T, ticks="out", x.axis.angle=0, hjus
axis.ticks = element_line(colour = "black"),
text = element_text(family = fontfamily),
plot.title = element_text(family = fontfamily,
face="bold",
face = title.fontstyle,
color = "black",
size = rel(fontsize.cex)),
axis.ticks.length = unit(ifelse(ticks=="in",-0.2,0.2),"cm"),
@ -77,7 +87,7 @@ DC_theme_generator <- function(type, legend=T, ticks="out", x.axis.angle=0, hjus
axis.ticks = element_line(colour = "black"),
text = element_text(family = fontfamily),
plot.title = element_text(family = fontfamily,
face="bold",
face = title.fontstyle,
color = "black",
size = rel(fontsize.cex)),
axis.ticks.length = unit(ifelse(ticks=="in",-0.2,0.2), "cm"),