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

Add ggplot theme generator

Browse source
This commit is contained in:
robocopAlpha 2020-07-13 18:15:59 +03:00
parent d2a69d39ef
commit accf6b4ff0
1 changed files with 129 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

129
DC_theme_generator.R Normal file
View file

@ -0,0 +1,129 @@
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"){
## Options:
# type: 'L', 'square'
# ticks: 'in', 'out'
# fontfamily: 'serif' , 'sans' , 'mono'
ticks <- tolower(ticks)
fontfamily <- tolower(fontfamily)
if( type == "square"){
if( legend ){
# Type: square , with legend"
themeToReturn <- ggplot2::theme(
panel.border = element_rect(linetype = 1,
colour = "black",
fill=NA,
size=1),
panel.background=element_blank(),
panel.grid.major=element_line(color=NA),
axis.ticks = element_line(colour = "black"),
text = element_text(family = fontfamily),
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),
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,
hjust = hjust,
vjust = vjust,
size = rel(fontsize.cex),
color="black",
margin=unit(c(0.3,0.3,0.3,0.3), "cm")),
legend.key= element_rect(fill=NA,
colour = NA)
)
}else{
# Type: square , without legend"
themeToReturn <- ggplot2::theme(
panel.border = element_rect(linetype = 1,
colour = "black",
fill=NA,
size=1),
panel.background=element_blank(),
panel.grid.major=element_line(color=NA),
axis.ticks = element_line(colour = "black"),
text = element_text(family = fontfamily),
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),
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,
hjust = hjust,
vjust = vjust,
size = rel(fontsize.cex),
color="black",
margin=unit(c(0.3,0.3,0.3,0.3), "cm")),
legend.key= element_rect(fill=NA,
colour = NA),
legend.position="none"
)
}
}
if( type == 'L' ){
if( legend ){
# Type: L , with legend"
themeToReturn <- ggplot2::theme(
axis.line = element_line(colour = "black",
size=0.5),
panel.border = element_blank(),
panel.background = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
axis.ticks = element_line(colour = "black"),
text = element_text(family = fontfamily),
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),
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,
hjust = hjust,
vjust = vjust,
size = rel(fontsize.cex),
color="black",
margin=unit(c(0.3,0.3,0.3,0.3), "cm")),
legend.key = element_rect(fill=NA,
colour = NA)
)
} else {
# Type: L , without legend
themeToReturn <- ggplot2::theme(
axis.line = element_line(colour = "black",
size=0.5),
panel.border = element_blank(),
panel.background = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
axis.ticks = element_line(colour = "black"),
text = element_text(family = fontfamily),
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),
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,
hjust = hjust,
vjust = vjust,
size = rel(fontsize.cex),
color="black",
margin=unit(c(0.3,0.3,0.3,0.3), "cm")),
legend.key = element_rect(fill=NA,
colour = NA),
legend.position="none"
)
}
}
return(themeToReturn)
}