##########
#' tech theme
#'
#' @export
#' @name theme_tech
#' @author Ricardo Bion
#' @title Tech themes for ggplot2
#' @examples
#' theme_tech(theme="etsy")
theme_tech <- function(theme="airbnb", tech_key = list(
airbnb = list(
family_title="Circular Air Bold"
, family_text = "Circular Air Medium"
, colour_title = "#F14000"
, colour_text = "#535353"),
facebook = list(
family_title="Facebook Letter Faces"
, family_text = "Facebook Letter Faces"
, colour_title = "#3D579D"
, colour_text = "#535353"),
google = list(
family_title="Product Sans"
, family_text = "Product Sans"
, colour_title = "#dd4b39"
, colour_text = "black"),
etsy = list(
family_title="Georgia"
, family_text = "Georgia"
, colour_title = "#F14000"
, colour_text = "#535353"),
twitter = list(
family_title="PicoBlackAl"
, family_text = "[z] Arista Light"
, colour_title = "#5380E4"
, colour_text = "black"),
X23andme = list(
family_title = "Helvetica Neue Bold"
, family_text = "Helvetica"
, colour_title = "#7BC143"
, colour_text = "#DA1963"
)
)) {
theme_classic() +
theme(text=element_text(size=18, family=tech_key[[theme]]$family_text)) +
theme(legend.title=element_blank()) +
theme(plot.title = element_text(size = 25, colour = tech_key[[theme]]$colour_title, family=tech_key[[theme]]$family_title)) +
theme(plot.subtitle = element_text(size = 15, colour = tech_key[[theme]]$colour_title, family=tech_key[[theme]]$family_title)) +
theme(axis.text.x=element_text(color=tech_key[[theme]]$colour_text)) +
theme(axis.text.y=element_text(color=tech_key[[theme]]$colour_text)) +
theme(axis.title.x=element_text(color=tech_key[[theme]]$colour_text, vjust=0)) +
theme(axis.title.y=element_text(color=tech_key[[theme]]$colour_text, vjust=1.25)) +
theme(plot.background = element_blank(),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank())+
theme(panel.border= element_blank())+
theme(axis.line.x = element_line(color=tech_key[[theme]]$colour_text, size = 0.5),
axis.line.y = element_line(color=tech_key[[theme]]$colour_text, size = 0.5)) +
theme(line = element_line(color=tech_key[[theme]]$colour_text)) +
theme(rect = element_rect(color=tech_key[[theme]]$colour_text)) +
theme(axis.ticks.x = element_line(color=tech_key[[theme]]$colour_text)) +
theme(axis.ticks.y = element_line(color=tech_key[[theme]]$colour_text))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.