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

Squashed commit of the following:

Browse source 
commit 6f817ea39cee879a6022c5debc3c22eceadbec02
Author: dchakro <35454738+dchakro@users.noreply.github.com>
Date:   Tue Aug 25 16:05:09 2020 +0300

    Updates

commit 7b789a0ea89c057e4bc3e205198b3374c7d3d312
Author: dchakro <35454738+dchakro@users.noreply.github.com>
Date:   Tue Aug 25 16:02:58 2020 +0300

    add support for font face.

    bold, italic, bold-italic and plain.
This commit is contained in:
dchakro 2020-08-25 16:05:54 +03:00
parent a7cbcef0a4
commit c9f0f67fe1
2 changed files with 43 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

61
DC_theme_generator.R
View file

@ -1,16 +1,15 @@
####
## Author: Deepankar Chakroborty
## Available at: https://gitlab.utu.fi/deecha/ggplot_themes/
## Report issues: https://gitlab.utu.fi/deecha/ggplot_themes/-/issues/new
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"){
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", fontstyle="bold.italic"){
# # Generate themes for ggplot2
# # Author: Deepankar Chakroborty
# # Available at: https://github.com/dchakro/ggplot_themes
# # Report issues: https://github.com/dchakro/ggplot_themes/issues
## Options:
# type: 'L', 'square'
# ticks: 'in', 'out'
# fontfamily: 'serif' , 'sans' , 'mono'
# fontstyle = 'plain', 'italic', 'bold', 'bold.italic'
ticks <- tolower(ticks)
fontfamily <- tolower(fontfamily)
@ -26,15 +25,20 @@ DC_theme_generator <- function(type,legend=T,ticks="out",x.axis.angle=0,hjust=0.
panel.background=element_blank(),
panel.grid.major=element_line(color=NA),
axis.ticks = element_line(colour = "black"),
text = element_text(family = fontfamily),
text = element_text(family = fontfamily,
face = fontstyle),
axis.ticks.length = unit(ifelse(ticks=="in",-0.2,0.2),"cm"),
axis.title = element_text(size=rel(fontsize.cex)),
axis.text.y = element_text(size = rel(fontsize.cex),
axis.text.y = element_text(family = fontfamily,
face = "plain",
size = rel(fontsize.cex),
hjust = 0.5,
angle = 0,
color="black",
margin=unit(c(0.3,0.3,0.3,0.3), "cm")),
axis.text.x = element_text(angle = x.axis.angle,
axis.text.x = element_text(family = fontfamily,
face = "plain",
angle = x.axis.angle,
hjust = hjust,
vjust = vjust,
size = rel(fontsize.cex),
@ -53,15 +57,20 @@ DC_theme_generator <- function(type,legend=T,ticks="out",x.axis.angle=0,hjust=0.
panel.background=element_blank(),
panel.grid.major=element_line(color=NA),
axis.ticks = element_line(colour = "black"),
text = element_text(family = fontfamily),
text = element_text(family = fontfamily,
face = fontstyle),
axis.ticks.length = unit(ifelse(ticks=="in",-0.2,0.2),"cm"),
axis.title = element_text(size=rel(fontsize.cex)),
axis.text.y = element_text(size = rel(fontsize.cex),
axis.text.y = element_text(family = fontfamily,
face = "plain",
size = rel(fontsize.cex),
hjust = 0.5,
angle = 0,
color="black",
margin=unit(c(0.3,0.3,0.3,0.3), "cm")),
axis.text.x = element_text(angle = x.axis.angle,
axis.text.x = element_text(family = fontfamily,
face = "plain",
angle = x.axis.angle,
hjust = hjust,
vjust = vjust,
size = rel(fontsize.cex),
@ -85,15 +94,20 @@ DC_theme_generator <- function(type,legend=T,ticks="out",x.axis.angle=0,hjust=0.
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
axis.ticks = element_line(colour = "black"),
text = element_text(family = fontfamily),
text = element_text(family = fontfamily,
face = fontstyle),
axis.ticks.length = unit(ifelse(ticks=="in",-0.2,0.2), "cm"),
axis.title = element_text(size=rel(fontsize.cex)),
axis.text.y = element_text(size = rel(fontsize.cex),
axis.text.y = element_text(family = fontfamily,
face = "plain",
size = rel(fontsize.cex),
hjust = 0.5,
angle = 0,
color="black",
margin=unit(c(0.3,0.3,0.3,0.3), "cm")),
axis.text.x = element_text(angle = x.axis.angle,
axis.text.x = element_text(family = fontfamily,
face = "plain",
angle = x.axis.angle,
hjust = hjust,
vjust = vjust,
size = rel(fontsize.cex),
@ -112,15 +126,20 @@ DC_theme_generator <- function(type,legend=T,ticks="out",x.axis.angle=0,hjust=0.
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
axis.ticks = element_line(colour = "black"),
text = element_text(family = fontfamily),
text = element_text(family = fontfamily,
face = fontstyle),
axis.ticks.length = unit(ifelse(ticks=="in",-0.2,0.2), "cm"),
axis.title = element_text(size=rel(fontsize.cex)),
axis.text.y = element_text(size = rel(fontsize.cex),
axis.text.y = element_text(family = fontfamily,
face = "plain",
size = rel(fontsize.cex),
hjust=0.5,
angle=0,
color="black",
margin=unit(c(0.3,0.3,0.3,0.3), "cm")),
axis.text.x = element_text(angle = x.axis.angle,
axis.text.x = element_text(family = fontfamily,
face = "plain",
angle = x.axis.angle,
hjust = hjust,
vjust = vjust,
size = rel(fontsize.cex),
@ -133,4 +152,4 @@ DC_theme_generator <- function(type,legend=T,ticks="out",x.axis.angle=0,hjust=0.
}
}
return(themeToReturn)
}
}