#' @title finplot
#' @description Plotting aide for Psec plotting functionalities.
#' @return ggplot object
#' @param x.comma.sep Make x axis not show scientific values (e.g. shows 25,000,000 as opposed to 2.5e+6)
#' @param y.comma.sep Make y axis not show scientific values (e.g. shows 25,000,000 as opposed to 2.5e+6)
#' @param x.pct Make x axis percentages
#' @param x.pct_acc Rounding of pct value.
#' @param y.pct Make y axis percentages
#' @param y.pct_acc Rounding of pct value.
#' @param x.vert flip x axis
#' @param y.vert flip y axis
#' @param x.ticks.rm Remove x ticks altogether
#' @param y.ticks.rm Remove x ticks altogether
#' @param legend_pos where to position legend. Defaults to bottom.
#' @param col.hue set color hues. E.g., set hue = 40 to see what happens
#' @param fill.hue set fill hues. E.g., set hue = 40 to see what happens
#' @param title.center Put title in center of figure. Used with grids or facet wraps e.g.
#' @param darkcol Use dark colors
#' @param x.date.type Of e.g. form '\%Y', '\%y_\%b'
#' @param x.date.dist Space between date points on x axis. E.g., "2 years", "10 week"
#' @param x.date.vector.sel Provide a vector of possible dates - this way weekends and holidays are e.g. removed... use bdscale here. E.g. use: x.date.vector.sel = unique(df$date)
#' @param legend.line.size Make legend lines larger
#' @param legend.line.alpha Make legend lines lighter
#' @param legend.text.size Adj legend text
#' @param log.y Apply a log transformation on the y-axis. This is a log base 10 transformation
#' @examples
#' g <- ggplot() + geom_line(aes(date, returns, color = Funds)) + theme_fmx()
#' finplot(g, x.pct = TRUE)
#' @export
#'
<- (g,
x.comma.sep = ,
y.comma.sep = ,
x.pct = ,
x.pct_acc = 0.1,
y.pct = ,
y.pct_acc = 0.1,
zero.anchor = ,
x.vert = ,
y.vert = ,
x.ticks.rm = ,
y.ticks.rm = ,
legend_pos = ,
col.hue = ,
fill.hue = ,
title.centre = ,
darkcol = ,
x.date.type = ,
x.date.dist = ,
x.date.vector.sel = ,
legend.line.size = ,
legend.text.size = ,
legend.line.alpha = ,
legend.title = ,
log.y = ,
drop.grids = ,
drop.x.grids = ,
drop.y.grids = ){
( x.comma.sep ) {
g <-
g + scale_x_continuous( = scales::comma)
}
( y.comma.sep ) {
g <-
g + scale_y_continuous( = scales::comma)
}
( x.pct ) {
g <-
g + scale_x_continuous( = scales::percent_format(accuracy = x.pct_acc))
}
( y.pct ) {
g <-
g + scale_y_continuous( = scales::percent_format(accuracy = y.pct_acc))
}
( zero.anchor ) {
g <-
g + expand_limits(x = 0, y = 0)
}
((x.date.type) & !(x.date.vector.sel) ) {
g <-
g +
bdscale::scale_x_bd(business.dates = x.date.vector.sel)
}
(!(x.date.type) & !(x.date.vector.sel) ) {
g <-
g +
bdscale::scale_x_bd(business.dates = x.date.vector.sel, =scales::date_format(x.date.type))
}
((x.date.vector.sel) & (x.date.type) & !(x.date.dist) ) {
g <-
g +
scale_x_date(date_breaks = x.date.dist)
}
(!(x.date.type) & (x.date.vector.sel) & !(x.date.dist) ) {
g <-
g +
scale_x_date(=scales::date_format(x.date.type), date_breaks = x.date.dist)
}
( !(col.hue)){
g <-
g + scale_color_hue(l = col.hue)
}
( !(fill.hue)){
g <-
g + scale_fill_hue(l = fill.hue)
}
( x.vert & x.ticks.rm ) ("Cannot have x.vert and x.ticks.rm... please choose")
( y.vert & y.ticks.rm ) ("Cannot have x.vert and x.ticks.rm... please choose")
(x.vert) {
g <-
g + theme(axis.text.x=element_text(angle = 90, hjust = 1))
}
(x.ticks.rm) {
g <-
g + theme(axis.text.x=element_blank())
}
(y.vert) {
g <-
g + theme(axis.text.y=element_text(angle = 90, hjust = 1))
}
(y.ticks.rm) {
g <-
g + theme(axis.text.y=element_blank())
}
if ( darkcol ) {
g <-
g +
scale_color_brewer(="Dark2")
}
(!(legend_pos)){
g <-
g + theme(legend.position = legend_pos)
}
(title.centre){
g <- g +
ggplot2::theme(plot.title = ggplot2::element_text(hjust = 0.5),
plot.subtitle = ggplot2::element_text(hjust = 0.5) )
}
( !( legend.line.size )) {
g <-
g + guides(colour = guide_legend(override.aes = (size = legend.line.size)))
}
( !( legend.text.size )) {
g <-
g +
ggplot2::theme(legend.text = ggplot2::element_text(size = legend.text.size) )
}
( !( legend.line.alpha )) {
g <-
g + guides(colour = guide_legend(override.aes = (alpha=legend.line.alpha)))
}
( !( legend.title )) {
g <-
g + ggplot2::theme(legend.title = ggplot2::element_text(size = legend.title) )
} {
g <-
g + ggplot2::theme(legend.title = ggplot2::element_blank() )
}
( log.y ) {
g <-
g +
coord_trans(y = 'log10') +
# annotation_logticks(scaled=FALSE) +
scale_y_continuous(breaks = scales::trans_breaks("log10", (x) 10^x),
= scales::trans_format("log10", scales::math_format(10^.x)))
}
( drop.grids ){
g <-
g + ggplot2::theme(panel.grid = element_blank())
}
( drop.x.grids ){
g <-
g +
ggplot2::theme(panel.grid.major.x = element_blank(),
panel.grid.minor.x = element_blank()
)
}
( drop.y.grids){
g <-
g +
ggplot2::theme(panel.grid.major.y = element_blank(),
panel.grid.minor.y = element_blank()
)
}
g
}
