Skip to content
Snippets Groups Projects
Commit 60dcbb10 authored by robocopAlpha's avatar robocopAlpha
Browse files

Merge branch 'develop'

parents c0bbc9b3 accf6b4f
Branches
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
DC_theme_generator.R 0 → 100644
+ 129
− 0
View file @ 60dcbb10
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)
}
\ No newline at end of file
theme_dc.plot.L.45.nolegend.R
+ 26
− 1
View file @ 60dcbb10
theme_dc.plot.L.45.nolegend=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.text.y= element_text(size = rel(1.5),color="black",margin=unit(c(0.3,0.3,0.3,0.3), "cm"),hjust=0.5,angle=0),legend.key= element_rect(fill=NA,colour = NA),legend.position="none", axis.ticks =element_line(colour = "black"),axis.text.x = element_text(angle = 45,hjust = 1,size = rel(1.5),color="black",margin=unit(c(0.3,0.3,0.3,0.3), "cm")),text=element_text(family="serif"),axis.ticks.length =unit(0.2, "cm"),axis.title = element_text(size=rel(1.5))) library(ggplot2)
\ No newline at end of file theme_dc.plot.L.45.nolegend=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.text.y= element_text(size = rel(1.5),
color="black",
margin=unit(c(0.3,0.3,0.3,0.3), "cm"),
hjust=0.5,
angle=0),
legend.key= element_rect(fill=NA,
colour = NA),
legend.position="none",
axis.ticks = element_line(colour = "black"),
axis.text.x = element_text(angle = 45,
hjust = 1,
size = rel(1.5),
color="black",
margin=unit(c(0.3,0.3,0.3,0.3), "cm")),
text=element_text(family="serif"),
axis.ticks.length =unit(0.2, "cm"),
axis.title = element_text(size=rel(1.5))
)
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment