# Choices to pick from
colours.available <- c('None' = NA, colors()[!grepl('grey', colors())]) # We don't want redundant grays
text.faces <- c('plain', 'italic', 'bold', 'bold.italic')
text.families <- if (is.element('extrafont', installed.packages()[, 1])) {
c(c('sans', 'serif', 'mono'), extrafont::fonttable()$FamilyName)
} else {
names(pdfFonts())
}
legend.positions <- c('none', 'left', 'right', 'top', 'bottom', 'XY')
legend.directions <- c('horizontal', 'vertical')
linetypes <- c('blank', 'solid', 'dashed', 'dotted', 'dotdash', 'longdash', 'twodash')
# Configurations
input.width <- '50%'
input.width2 <- '90%'
line.height <- '70px'
heading.height <- '30px'
# default values
default <- list(
plot.subtitle = structure(list(
family = 'sans',
size = 9,
face = 'plain',
colour = 'gray30',
hjust = 0,
vjust = 1,
angle = 0,
lineheight = 1.1
), class = 'element_text'),
plot.caption = structure(list(
family = 'sans',
size = 9,
face = 'plain',
colour = 'gray30',
hjust = 1,
vjust = 1,
angle = 0,
lineheight = 1.1
), class = 'element_text'),
axis.text = structure(list(
family = 'sans',
size = 10,
face = 'plain',
colour = 'gray30',
hjust = 0.5,
vjust = 0.5,
angle = 0,
lineheight = 1.1
), class = 'element_text'),
axis.text.x = structure(list(
family = 'sans',
size = 10,
face = 'plain',
colour = 'gray30',
hjust = 0.5,
vjust = 1,
angle = 0,
lineheight = 1.1
), class = 'element_text'),
axis.text.y = structure(list(
family = 'sans',
size = 10,
face = 'plain',
colour = 'gray30',
hjust = 1,
vjust = 0.5,
angle = 0,
lineheight = 1.1
), class = 'element_text'),
axis.line = structure(list(
colour = 'black',
size = 1,
linetype = 'blank'
), class = 'element_line'),
axis.ticks = structure(list(
colour = 'gray20',
size = 0.5,
linetype = 'solid'
), class = 'element_line'),
axis.title = structure(list(
family = 'sans',
size = 11,
face = 'plain',
colour = 'black',
hjust = 0.5,
vjust = 0.5,
angle = 0,
lineheight = 1.1
), class = 'element_text'),
plot.title = structure(list(
family = 'sans',
size = 13,
face = 'plain',
colour = 'black',
hjust = if (any(names(formals(ggtitle)) == 'subtitle')) {0} else {0.5},
vjust = 0.5,
angle = 0,
lineheight = 1.1
), class = 'element_text'),
panel.background = structure(list(
fill = 'gray92',
colour = 'NA',
size = 0.5,
linetype = 'blank'
), class = 'element_rect'),
plot.background = structure(list(
fill = 'NA',
colour = 'white',
size = 0.5,
linetype = 'blank'
), class = 'element_rect'),
strip.background = structure(list(
fill = 'NA',
colour = 'white',
size = 0.5,
linetype = 'blank'
), class = 'element_rect'),
strip.text = structure(list(
family = 'sans',
size = 10,
face = 'plain',
colour = 'gray30',
hjust = 0.5,
vjust = 1,
angle = 0,
lineheight = 1.1
), class = 'element_text'),
panel.grid.major = structure(list(
colour = 'gray100',
size = 0.5,
linetype = 'solid'
), class = 'element_line'),
panel.grid.minor = structure(list(
colour = 'gray100',
size = 0.5,
linetype = 'solid'
), class = 'element_line'),
legend.text = structure(list(
size = 10,
face = 'plain',
family = 'sans',
colour = 'black'
), class = 'element_text'),
legend.title = structure(list(
size = 10,
face = 'plain',
family = 'sans',
colour = 'black'
), class = 'element_text'),
legend.background = structure(list(
fill = 'gray100',
colour = 'NA',
size = 0.5,
linetype = 'blank'
), class = 'element_rect'),
legend.key = structure(list(
fill = 'gray95',
colour = 'NA',
size = 0.5,
linetype = 'blank'
), class = 'element_rect'),
legend.position = 'right',
legend.position.x = 0.5,
legend.position.y = 0.5,
legend.direction = 'vertical',
labs = list(
title = '',
x = '',
y = '',
colour = '',
fill = '',
size = '',
linetype = '',
shape = '',
alpha = '',
subtitle = '',
caption = ''
)
)
AvailableElements <- list(
plot.subtitle = list(
name = 'plot.subtitle',
type = 'element_text',
enabled = TRUE
),
plot.caption = list(
name = 'plot.caption',
type = 'element_text',
enabled = TRUE
),
axis.line = list(
name = 'axis.line',
type = 'element_line',
enabled = TRUE
),
axis.ticks = list(
name = 'axis.ticks',
type = 'element_line',
enabled = TRUE
),
panel.grid.major = list(
name = 'panel.grid.major',
type = 'element_line',
enabled = TRUE
),
panel.grid.minor = list(
name = 'panel.grid.minor',
type = 'element_line',
enabled = TRUE
),
axis.title = list(
name = 'axis.title',
type = 'element_text',
enabled = TRUE
),
axis.text = list(
name = 'axis.text',
type = 'element_text',
enabled = TRUE
),
axis.text.x = list(
name = 'axis.text.x',
type = 'element_text',
enabled = TRUE
),
axis.text.y = list(
name = 'axis.text.y',
type = 'element_text',
enabled = TRUE
),
plot.title = list(
name = 'plot.title',
type = 'element_text',
enabled = TRUE
),
legend.text = list(
name = 'legend.text',
type = 'element_text',
enabled = TRUE
),
legend.title = list(
name = 'legend.title',
type = 'element_text',
enabled = TRUE
),
panel.background = list(
name = 'panel.background',
type = 'element_rect',
enabled = TRUE
),
plot.background = list(
name = 'plot.background',
type = 'element_rect',
enabled = TRUE
),
strip.background = list(
name = 'strip.background',
type = 'element_rect',
enabled = TRUE
),
strip.text = list(
name = 'strip.text',
type = 'element_text',
enabled = TRUE
),
legend.key = list(
name = 'legend.key',
type = 'element_rect',
enabled = TRUE
),
legend.background = list(
name = 'legend.background',
type = 'element_rect',
enabled = TRUE
),
legend.position = list(
name = 'legend.position',
type = '',
enabled = TRUE
),
legend.direction = list(
name = 'legend.direction',
type = '',
enabled = TRUE
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.